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

Question

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

Comments

в смысле программу ?

---

в abc паскаль

Answer 1

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

Comments

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

---

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

---

спасибо)