Составьте программу вычисления суммы целых чисел от 1 до k.(через паскаль)

AntosciucAndreea AntosciucAndreea    2   24.09.2019 00:00    0

Ответы
jolydolf12 jolydolf12  08.10.2020 13:40
Var i,n,sum: integer;
begin
sum:=0;
writeln('Введите число, которое > 1');
readln(n);
for i:=1 to n do
begin
sum:=sum+i;
end;
writeln(sum);
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика