12, 6, 18, 50, 60, 100
Объяснение:
program qq;
var x:integer;
begin
while(True) do begin
read(x);
if((x mod 10 = 0) and (x > 22)) or (x mod 3 = 0) then writeln('"',x,'"');
end;
end.
12, 6, 18, 50, 60, 100
Объяснение:
program qq;
var x:integer;
begin
while(True) do begin
read(x);
if((x mod 10 = 0) and (x > 22)) or (x mod 3 = 0) then writeln('"',x,'"');
end;
end.