Опубликовано 08.03.2018 по предмету Информатика от Гость

Первый номер плиз(((

Ответ оставил Гуру

Var i,s:integer;
Begin
s:=0;
For i:=1 to 50 do
s:=s+i;
Writeln('s=',s);
readln;
end.

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