program not _bad; Const PI=3.14; Var a,b,c,s:real; Begin Writeln('Я это знал, но я узнал немного больше'); Writeln('введите 3 числа: '); Readln(a,b,c); s:=a+b+c+PI; Writeln('сумма знаний полученное из этого видео = ', s ); End.
{найти последнюю цифру числа} program cifra; var a,z: integer; begin writeln ('введите число'); read:(a) z;=a mod 10; writln('последняя цифра = ',z); end. неа программа не работает Program1.pas(7) : Встречено 'z', а ожидалось ';'
program cifra; var a,z: integer; begin writeln ('введите число'); read(a); -----тут ошибка ( у тебя read:(a) а надо read(a); ) z:=a mod 10; -----тут ошибка ( у тебя z;= а надо z:= ) writeln('последняя цифра = ',z); ---- тут ошибка( у тебя writln ) end.
как меня бесит это прога из-за неё мне по ивт 2 ставят каждый урок не врубаюсь ввобще я в неё
Adrian Ogata +++
+++++
Мне тоже. И так и сяк но не правильно
Нам всему классу по колам ставят
Она ещё и бесполезная)))
Спасибо тебе, ты мне очень помог и та 4 за контрольную по информатике принадлежит тебе.
Чел, у меня тоже 4 за контрольную, наша училка нихера не объясняет
Моё вам уважение! Где ж вы раньше были😂
Спасибо большое за видео, вроде немного разобралась благодаря вам
Спасибо за подготовку к зачёту)
Меня цены во 2 задачи испугали😂
А так спасибо
Было время до деноминации, когда все в Беларуси были миллионерами. Потом отбросили четыре нуля в деньгах. Сразу стало проще жить
спасибо. очень доступно объяснил.
Очень круто, спасибо
многовато стоит мороженка и шоколадка)
от души спасибо
Как программа называется?
Не я же один сюда пришёл по тому что не Черта не понимаю этот язык?
program not _bad;
Const
PI=3.14;
Var
a,b,c,s:real;
Begin
Writeln('Я это знал, но я узнал немного больше');
Writeln('введите 3 числа: ');
Readln(a,b,c);
s:=a+b+c+PI;
Writeln('сумма знаний полученное из этого видео = ', s );
End.
Линейные программы можно считать за алгоритмы?(я просто в них вообще не разбираюсь)
Да
Спасибо вам)
ЭЭэ а если ввести в первом задании число меньше 10 то программа не отобразит, так что пишем if x
Я не проверял, но думаю что всё получится.
так в условии последняя цифра числа, а цифра числом не является
thanks a lot 🙏 you’re good porgrammer
пишите пожалуйста электронную почту свою
ничего не поняла, как обычно
{найти последнюю цифру числа}
program cifra;
var a,z: integer;
begin
writeln ('введите число');
read:(a)
z;=a mod 10;
writln('последняя цифра = ',z);
end.
неа программа не работает
Program1.pas(7) : Встречено 'z', а ожидалось ';'
program cifra;
var a,z: integer;
begin
writeln ('введите число');
read(a); -----тут ошибка
( у тебя read:(a) а надо read(a); )
z:=a mod 10;
-----тут ошибка ( у тебя z;= а надо z:= )
writeln('последняя цифра = ',z);
---- тут ошибка( у тебя writln )
end.
Ошибок много допустил, конечно не работает, даже списать не можешь правильно.
просто супер😁
Почему план решения, а не алгоритм? Так же точнее будет, с позиции- программирования!? Я не "умничаю", просто не понятно!))
алгоритм это уже готовое решение по шагам, а план лишь общие черты решения, которые потом будут подробно расписаны.
супер а когда 3 часть будет
спасибо брат
Спасибо
спс
спасибо молодчина,удачи тебе)
Почему нас до сих пор учат этому старью, паскаль уже не где не используется.
Чётка
Очень помогло
у меня по русскому конечно не 5, но по моему слово мороженных пишется с 2 «н»
Очень долго пишешь прогу, а так спасибо.
можно поставить скорость двойную , если очень спешим.
Ура теперь я кодер
эм 26 подилить на 10 будет 2.6
нихуя не поняла
Тупая девка потому что
@@ALexander_Fes согласен саня потому что я тоже саня саньковская солидарность
@@Alex-su4xt 👊
Введите число мороженого, а не мороженных!
GRИM TV, Мороженые (И.п., мн.ч.) => мороженых (Р.п., мн.ч.)
Мороженое (И.п., ед.ч.) => мороженого (Р.п., ед.ч.)
Спасибо
рад что вам помогло