Найти двузначные числа..., Задача Опции

[ve7er]

Найти двузначные числа от 10 до 99 сумма цифр которых плюс квадрат этой суммы равно это же число.

Например 42: 4+2=6 6+6(в квадрате)=42.

........__|__ /
___ / **** \=======# --- HELP....
;|HH*T-34*HH:\ \
(@=@=@=@=@)

[klem4]

Решалось совсем недавно, решение даже помоему на этой странице, поищи.

[Tan]

я наверно не заметил, что рещалось, поэтому сам набросал, вот что вышло :

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.

Сообщение отредактировано: Tan - 20.05.2007 19:45

[klem4]

Сумма цифр, сумма элементов последовательности

(задача №1)

Сообщение отредактировано: klem4 - 20.05.2007 19:48