Найти двузначные числа от 10 до 99 сумма цифр которых плюс квадрат этой суммы равно это же число.
Например 42: 4+2=6 6+6(в квадрате)=42.
........__|__ /
___ / **** \=======# --- HELP....
;|HH*T-34*HH:\ \
(@=@=@=@=@)
uses crt;
var k,i : integer;
procedure Check (k : integer);
var sum,buf : integer;
begin
buf := k;
sum := 0;
repeat
sum := sum + k mod 10;
k := k div 10;
until k <= 0;
If buf = sum + sqr(sum) then
writeln (buf);
end;
begin
Clrscr;
for i := 10 to 99 do Check (i);
readkey;
end.