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

белка2010 белка2010    2   07.05.2019 15:51    3

Ответы
megagda04 megagda04  09.06.2020 15:29

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика