Скажите если в презентации делать пустые слайды , а текст копировать из интернета ,будет ли пустой слайд с информацией отображаться на проекторе в аудитории)) важно
Var a: integer; begin writeln('Введите год рождения'); readln(a); case a mod 12 of 0: writeln('Вы родились в год Обезьяны.'); 1: writeln('Вы родились в год Петуха.'); 2: writeln('Вы родились в год Собаки.'); 3: writeln('Вы родились в год Свиньи.'); 4: writeln('Вы родились в год Крысы.'); 5: writeln('Вы родились в год Быка.'); 6: writeln('Вы родились в год Тигра.'); 7: writeln('Вы родились в год Кролика.'); 8: writeln('Вы родились в год Дракона.'); 9: writeln('Вы родились в год Змеи.'); 10: writeln('Вы родились в год Лошади.'); 11: writeln('Вы родились в год Козы.'); end; readln end.
Program zadacha3; var V, Vo,a ,b, t, c, H: integer; begin writeln('моя программа вычисляет скорость при равноускоренном движении'); writeln('введите начальную скорость'); readln(a); writeln('введите ускорение'); readln(a); writeln('введите время'); readln(t); writeln('введите шаг'); readln(H); for b:=t to c do begin t:=t+H; V:=Vo+a*t; end; writeln('скорость равна V:= ',V); end.
После эндом на закрытии цикла не стояло точки с запятой, и где у тебя написано в третей строчке снизу 7V, что это я так и не понял? Я убрал оттуда семёрку, если не так то поменяй, я в формулу не вдавался. И у тебя ответ в цикле стоит я не знаю так должно быть или нет, обрати внимание на это, в своём варианте я переставил ответ на после цикла