Question

Это на паскале с любым числом.Задание L AExam95. Дано вещественное положительное число X. Последовательно уменьшая его на 2.8, выводить это число, пока оно будет оставаться положительным.

Answer 1

Ответ:

program z;

var x:real;

begin

read(x);

x:=x-2.8;

while x>0 do

begin

writeln(x);

x:=x-2.8;

end

end.

Объяснение:

само введённое число х не выводится, только его последовательные уменьшения

используем цикл с предусловием (while x>0 do) с условием (x>0) т.е. пока x больше 0 (положительный)

вывод на экран осуществляется с новой строки (writeln(x);)