Найти сумму натуральных чисел от 10 до 150

Nastyisha

Помогите, пожалуйста. Буду очень благодарна. №2 Составье программу, которая аходит сумму натуральных чисел от 10 до 150 и выводит на экран результат.
1 ответ

Nastyisha

Помогите, пожалуйста. Буду очень благодарна. №2 Составье программу, которая аходит сумму натуральных чисел от 10 до 150 и выводит на экран результат.
uses crt;
var i:byte; sum:integer;
BEGIN
  clrscr;
  sum:=0;
  for i:=10 to 150 do
    sum:=sum+i;
  writeln('Summa = ',sum:6);
 readln
END.