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, что это я так и не понял? Я убрал оттуда семёрку, если не так то поменяй, я в формулу не вдавался. И у тебя ответ в цикле стоит я не знаю так должно быть или нет, обрати внимание на это, в своём варианте я переставил ответ на после цикла
// PascalABC.NET 3.0, сборка 1088 const n=9; m=7; var a:array[1..n,1..m] of integer; b:array[1..n] of boolean; i,j,k:integer; begin Randomize; Writeln('*** Исходный массив ***'); for i:=1 to n do begin k:=0; for j:=1 to m do begin a[i,j]:=Random(225)-112; Write(a[i,j]:5); if a[i,j]<0 Then Inc(k) end; Writeln; b[i]:=k>3 end; Writeln('*** Строки, содержащие больше 3 отрицательных элементов ***'); for i:=1 to n do if b[i] then Write(i,' '); Writeln end.
program raf105;
var a,b,c:integer;
begin
write('Введите 3 числа через пробел: ');
readln(a,b,c);
if a >0
then a:=a+10
else a:=a-10;
if b >0
then b:=b+10
else b:=b-10;
if c >0
then c:=c+10
else c:=c-10;
write('Вывод: ',a,', ',b,', ',c);
end.
Написано на языке PascalABC.NET