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

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

Ответы

Автор ответа: sablibk16
0

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.

Похожие вопросы
Предмет: Математика, автор: saruhananvaleria44