Нужно для программы Pascal!

Из чисел от 10 до 99 вывести те, сумма цифр которых равна

n и само число делится на m.

Question

Информатика

Артюня

27 апреля, 00:32

Нужно для программы Pascal!

Из чисел от 10 до 99 вывести те, сумма цифр которых равна

n и само число делится на m.

+4

Ответы (1)

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

Санюта · Answer 1

Var n, m, s, q, w, e:Integer;

begin

Read (n, m) ;

for s: = 10 to 99 do

begin

q: = s div 100;

w: = s div 10 mod 10;

e: = s mod 10;

if (q+w+e=n) and (s mod m = 0) then

WriteLn (s) ;

end;

end.

Нужно для программы Pascal!Из чисел от 10 до 99 вывести те, сумма цифр которых равнаn и само число делится на m.

Нужно для программы Pascal!

Из чисел от 10 до 99 вывести те, сумма цифр которых равна

n и само число делится на m.