Программа для вычисления суммы n чисел
Если правильно понял,то вот
var
n,i,sum:integer;
begin
repeat
write (N = );
readln(n);
until n>0;
sum:=0;
for i:=1 to n do sum:=sum+i;
writeln (Summa: ,sum);
readln;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
