Какие из чисел удовлетворяют условию (x % 10 == 0 and x > 22) or x % 3 == 0? 10 12 6 18 20 50 60 100 98
Ответ:
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.