Задание:
Найти все трехзначные цифры, такие, что сумма цифр равна А, а само число делится на В (А и В вводятся склавиатуры).
Решение:
vara,b,i,s: integer; readln (a); readln (b); for i=100 to 999 do beginif (i mod 10)+(i div 100)+(i mod 100) div 10)=a thenbeginif i mod b=0 thenwriteln (i); end; end; end.
Знаете другой ответ?