Напишите программу поиска все двузначных чисел, в которых есть цифра n, или само число делится на n (решите по паскалю).

Question

Сильвестра

6 апреля, 23:14

+5

Ответы (2)

Знаете ответ?

Ян · Answer 1

var

i, n: integer;

begin

readln (n) ;

for i : = 10 to 99 do

if (i mod 10 = n) or (i div 10 = n) or (i mod n = 0) then write (i:4) ;

end.

Петуся · Answer 2

Var

i, n: integer;

begin

readln (n) ;

for i: = 10 to 99 do

if (i mod 10 = n) or (i div 10 = n) or (i mod n = 0) then writeln (i)

end.