Var A: array [1..25] of integer;
i, p, max : integer;
<span>BEGIN
</span>for i:=1 to 25 do
read(A[i]);
p:=1;
i:=1;
while A[i]<>0 do begin
p:=p*A[i];
i:=i+1;
end;
writeln('Первый нулевой элемент ', i);
writeln('Произведение элементов до нулевого ', p);
max:=A[i+1];
for i:=i+1 to 25 do
if A[i]>max then max:=A[i];
writeln('Максимальный элемент после нулевого ', max);
END.
Ну мы в школе по этой программе с котом <span>на ярлыке </span>роботали
60+70=130 (км/ч) скорость удаления130*3=390 (км)Ответ: будет 390 (км)
Program Turbo;
uses CRT;
Var
N,S:integer;
Begin
S:=0;
Write('N = ');
ReadLn(N);
For N:= 1 to N do
S:=S+N;
if S=N*(N+1)/2 then WriteLn('Тождество верно (',S,'=',S,')')
else WriteLn('Тожедство ложно','(',S,'<>',N*(N+1)/2,')')
End.
64*40*48*8=983040 бит /8/1024 = 102 КБ
Ответ: 3.