Найти все трёхзначные цифры, такие, что сумма цифр равна А, а само число делится на В (А и В вводятся с клавиатуры).
var
a,b,i,s:integer;
readln(a);
readln(b);
for i=100 to 999 do
begin
if (i mod 10)+(i div 100)+((i mod 100) div 10)=a then
begin
if i mod b = 0 then
writeln(i);
end;
end;
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
