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

Question

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

Answer 1

3)
var
i: Integer;
begin
for i := 50 downto 1 do
if (i and 1) = 1 then {либо (i mod 2)=1, либо Odd(i)}
WriteLn(i);
end.

Comments

begin

---

for i:=1 to 9 do

---

writeln(i,'*',i,'=',i*i);