Вывести на экран в порядке убывания Опции

[Sanjke]

помогите написать программу

Вывести на экран в порядке убывания числовой ряд действительных чисел от 10 до 20 с шагом 0,4.
вторая.



Сообщение отредактировано: Sanjke - 30.12.2011 19:43

[potter-by]

var chislo:real;
begin
chislo:=20;
while  chislo > 10 do
begin
writeln(chislo);
chislo:=chislo-0.4;
end;
end.