Предмет: Информатика, автор: sidelnikovan1

Решить задачу: наайти сумму всех натуральных чисел от 1 до n. Используя цикл for.

Ответы

Автор ответа: Darkneter
0
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.
Автор ответа: Darkneter
0
s:=0; for i:=1 to n do s:=s+i;
Похожие вопросы
Предмет: Математика, автор: ajdynkyzyajdana33
Предмет: География, автор: lika7tebekova