Question

Найти все трёхзначные цифры, такие, что сумма цифр равна А, а само число делится на В (А и В вводятся с клавиатуры).

Answer 1

 uses crt;

 

var a,b,i,s:integer;

 

begin

 

 

clrscr; 

 

writeln ('введите a');

readln(a);

writeln ('введите b'); 

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.

Answer 2

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.