Предмет: Информатика,
автор: 3Hal0
Первый номер плиз(((
Приложения:
Ответы
Автор ответа:
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.
Интересные вопросы
Предмет: Математика,
автор: masahmel4
Предмет: Алгебра,
автор: lerkak283
Предмет: Математика,
автор: awsofff
Предмет: История,
автор: MashaBaggins