Эраст
4 год назад
Напишите программу, которая вводит натуральное число N и находит сумму всех натуральных чисел от 1 до N. Используй цикл с предусловием
ОТВЕТЫ
Velika
Oct 24, 2020
Program z1;
var a,n,i,sum:integer;
Begin
sum:=0;
read(n);
for i:=1 to n do
begin
read(a);
sum:=sum+a;
end;
writeln(sum);
End.
var a,n,i,sum:integer;
Begin
sum:=0;
read(n);
for i:=1 to n do
begin
read(a);
sum:=sum+a;
end;
writeln(sum);
End.
955
Смежные вопросы:
