
Var i,s:integer;
Begin
s:=0;
For i:=1 to 50 do
s:=s+i;
Writeln('s=',s);
readln;
end.
Оцени ответ

Не нашёл ответ?
Если тебя не устраивает ответ или его нет, то попробуй воспользоваться поиском на сайте и найти похожие ответы по предмету Информатика.
Найти другие ответыСамые свежие вопросы