Question

Составьте программу,которая выводит на экран нечетные числа от 1 до 50 в порядке убывания.

Answer 1

//PascalABC.NET
var
i:integer;
begin
for i:=50 downto 1 do
if i mod 2 =1 then writeln(i);
end.

Answer 2

а если мы не проходили downto? то как

Answer 3

var
i:integer;
begin
i:=50;
while i > 0 do begin
if i mod 2 = 1 then write(i,' ');
i:=i-1;
end;
end.

Answer 4

спасибо)