Question

Вывести на экран 12 первых двухзначных целых чисел кратных 4​

Answer 1

Ответ:

Объяснение:

program mn;

var a,b,c,k,s: integer;

begin

b:=0;

for s:=10 to 99 do

begin

k:=s mod 4;

if k = 0 then

begin

b:=b+1;

if b <= 12 then

writeln (s);

end;

end;

readln

end.