Даю 25 балов. Склади програму для знаходження всіх двоцифрових чисел що діляться ** N або...

Question

Даю 25 балов. Склади програму для знаходження всіх двоцифрових чисел що діляться на N або містять цифру N.

Comments

Їх вивести треба?

---

да

Answer 1

Var i,n:integer;
begin
readln(n);
for i:=10 to 99 do
if (i mod n=0) or (i mod 10=n) or (i div 10=n) then writeln(i);
end.

Comments

Большое спасибо.