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.