Question

Цикл for(Pascal)

решить задачку при помощи этого цикла:
напечатать все нечетные числа от 3 до 25

Answer 1

var a:integer;
begin
for a:=3 to 25 do
begin
if (a mod 2 =1) then writeln(a);
end;
end.