Найти все 3-х значные числа, такие, что сумма цифр равна А, а само число делится на В (А и В вводится с клавиатуры) — Pascal(Паскаль)

uses crt;
var a,b,k,n:word;
begin
clrscr;
write('Введите сумму цифр 3х-значного числа a=');
readln(a);
write('Введите число для проверки кратности b=');
readln(b);
writeln('Трехзначные числа, сумма цифр которых=',a,' и кратные ',b);
n:=0;
for k:=100 to 999 do
if((k div 100)+(k div 10 mod 10)+(k mod 10)=a)and(k mod b=0) then
 begin
  n:=1;
  write(k,' ');
 end;
if n=0 then write('Таких чисел нет!');
readln
end.

Leave a Comment

82 + = 85