Question

Найдите все трехзначные числа, сумма цифр которых кратна 7 и сами числа также делятся на 7.

Answer 1

var a,b,c,d,e,f:integer;
begin
for a:=100 to 999 do begin
b:=a div 100;
c:=a mod 10;
d:=a mod 100;
e:=d div 10;
f:=c+b+e;
if (f mod 7=0) and (a mod 7=0) then
writeln(a,' ');
end;
end.