Question

Найти все трехзначные числа у которых сумма цифр равна А , а само число делится на В. Паскаль. 40 баллов.

Answer 1

program test;

var i,a,b:integer;

BEGIN

writeln('Enter a:');

readln(a);

writeln('Enter b:');

readln(b);

for i:=100 to 999 do

   begin

   if ((((i div 10) mod 10)+(i div 100)+(i mod 10) )= a) and (i mod b=0)  then writeln(i);

   end;

END.