АБ
Анна Беспалова
var i:integer; begin for i:=100 to 200 do begin if (odd(i)) and (i mod 4 =0) then write(i); end; end.
Слушай, покажи мне хоть одно нечетное число, которое делится на 4!
Кстати, азикс именно эти и пытается сделать.
А так -
for i:=0 to 25 do writeln(100+i*4);
var i:integer; begin for i:=25 to 50 do write(4*i:4); writeln end.
Не через for :
begin
var N : Byte := 100; repeat Write(#32, N); Inc(N, 4); until N > 200; WriteLn;
end.