Question

Дано вещественное положительное число X. Последовательно уменьшая его на 2.8, выводить это число, пока оно будет оставаться положительным
Pascal ABC net​

Answer 1

Ответ:

var x:real;

BEGIN

readln(x);

x:=x-2.8;

while (x>=0) do begin

writeln(x);

x:=x-2.8;

end;

END.

Объяснение: