Вычислить сумму членов ряда - Pascal ABC

Формулировка задачи:

Составить программу, которая вычисляет сумму членов ряда: 1+3+5+7+… до тех пор, пока она не превысит значение S = 300

Код к задаче: «Вычислить сумму членов ряда - Pascal ABC»

textual
const s=300;
var i,sum:integer;
begin
 sum:=0;i:=1;
 repeat
  write(i);
  sum:=sum+i;
  if sum<=s then write('+');
  inc(i,2)
 until s<sum;
 write(' = ',sum)
end.

6   голосов, оценка 3.833 из 5


СОХРАНИТЬ ССЫЛКУ