Ответы
Ответ дал:
0
Var i,s:integer;
Begin
s:=0;
For i:=1 to 50 do
s:=s+i;
Writeln('s=',s);
readln;
end.
Begin
s:=0;
For i:=1 to 50 do
s:=s+i;
Writeln('s=',s);
readln;
end.
Похожие вопросы
2 года назад
6 лет назад
6 лет назад
9 лет назад
9 лет назад