Найти двузначные числа от 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.
http://forum.pascal.net.ru/index.php?s=&showtopic=17447&view=findpost&p=102228
(задача №1)