Question

Решите задачу Pascal:
Цикл с предусловием Дана числовая последовательность : 8.2, 7.9, 7.6, … Найти сумму всех положительных чисел.

Answer 1

program ll1;

var a, sum: real;

begin

a:=8,9;

sum:=0;

while a>0 do begin

sum:=sum+a;

a:=a-0,3;

end;

writeln(sum);

end.