Malazar
6 год назад
Решить задачу: наайти сумму всех натуральных чисел от 1 до n. Используя цикл for.
ОТВЕТЫ
Maenyupdo
Jun 29, 2019
program zadacha;
var
i,s,n:integer;
begin
write(Введите n=);
readln(n);
s:=0; for i:=1 to n do s:=s+i;
writeln(Сумма s=,s);
end.
var
i,s,n:integer;
begin
write(Введите n=);
readln(n);
s:=0; for i:=1 to n do s:=s+i;
writeln(Сумма s=,s);
end.
224
