Объяснение:
program mn;
var a,b,c,k,s: integer;
begin
b:=0;
for s:=10 to 99 do
k:=s mod 4;
if k = 0 then
b:=b+1;
if b <= 12 then
writeln (s);
end;
readln
end.
Объяснение:
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.