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, что это я так и не понял? Я убрал оттуда семёрку, если не так то поменяй, я в формулу не вдавался. И у тебя ответ в цикле стоит я не знаю так должно быть или нет, обрати внимание на это, в своём варианте я переставил ответ на после цикла
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,сборка 1076
begin
var n:=ReadInteger('Длина последовательности: ');
var a:=ArrRandom(n,-50,50);
Writeln('Исходная последовательность');
a.Println;
Writeln('Сумма элементов: ',a.Sum);
Write('Кол-во четных, кратных пяти: ');
Writeln(a.Where(x-> x mod 10 = 0).Count)
end.
Тестовое решение:
Длина последовательности: 20
Исходная последовательность
-4 21 -21 -23 14 -39 -12 1 -7 4 17 -45 30 -48 -19 -12 27 -46 -37 15
Сумма элементов: -184
Кол-во четных, кратных пяти: 1