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

Question

Ванюта

16 декабря, 05:05

+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.