Решить задачу: наайти сумму всех натуральных чисел от 1 до n. Используя цикл for.
Решить задачу: наайти сумму всех натуральных чисел от 1 до n. Используя цикл for.
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы