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

Question

Информатика

Федуся

2 сентября, 17:55

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

+4

Ответы (1)

Знаете ответ на вопрос?

Светуся · Answer 1

Var a, b, s, q, w, e:Integer;

begin

Read (a, b) ;

for s: = 100 to 999 do

begin

q: = s div 100;

w: = s div 10 mod 10;

e: = s mod 10;

if (q+w+e=a) and (s mod b = 0) then

WriteLn (s) ;

end;

end.