Вивести в стовпчиним всі чотиризначні числа сума цифр якого дорівнює чисалу яке введене з...

Question

Вивести в стовпчиним всі чотиризначні числа сума цифр якого дорівнює чисалу яке введене з клавіатури!!!

Comments

На якій мові написати?

Answer 1

Var a, b: real;
begin
read(a);
while a <=9999 do begin<br>read(b);
if (b div 1000 <> 0) and (b div 1000 + b div 100 mod 100 + b div 10 mod 10 + b mod 10 = a) then begin
writeln(b);
end;
end.