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, что это я так и не понял? Я убрал оттуда семёрку, если не так то поменяй, я в формулу не вдавался. И у тебя ответ в цикле стоит я не знаю так должно быть или нет, обрати внимание на это, в своём варианте я переставил ответ на после цикла
Const n=20; var x,y : array[1..n] of integer; i,a,b,c : integer; f:real; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin x[i]:=random(101)-50; write(x[i],' '); end; writeln; a:=0; b:=0; c:=0; for i:=1 to n do begin if x[i]<0 then a:=a+x[i]; if x[i] mod 2 = 0 then b:=b+1; if (c=0)and(x[i]>0) then c:=i; end; writeln('A=',a,' B=',b,' C=',c); f:=c+((a+b)/(10-c+a)); writeln('F=',f:5:2); end.
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, что это я так и не понял? Я убрал оттуда семёрку, если не так то поменяй, я в формулу не вдавался.
И у тебя ответ в цикле стоит я не знаю так должно быть или нет, обрати внимание на это, в своём варианте я переставил ответ на после цикла