Найти все трёхзначные цифры, такие, что сумма цифр равна А, а ...
Найти все трёхзначные цифры, такие, что сумма цифр равна А, а само число делится на В (А и В вводятся с клавиатуры).
Есть ответ
17.12.2022
164
Ответ
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
17.12.2022
