долгожитель

[isus]

Долгожитель (возраст не менее 100 лет) обнаружил однажды, что если к
сумме квадратов цифр его возраста прибавить число дня его рождения, то
как раз получится его возраст. Сколько лет долгожителю?
помогите с идеей решения аданной задачи

[Манжосов Денис :)]

var
 x: integer;
 a,b,c: integer;
 k: integer;
begin
 ReadLn(x,k);
 if x < 100 then Halt;
 a := x div 100;
 b := x mod 10; 
 c := x div 10 mod 10;
 WriteLn(Sqr(a) + Sqr (b) + Sqr(c) + k);
end.

Дальше сам дооформишь, как надо.

[Вавел из ГМТУ]

Поймал както раз старик золотую рыбку и та говорит ему:
- Отпусти меня, я любое твоё желание исполню..
- Хочу мир во всём мире и чтобы войн не было..
- Не дед, это слишком сложно... Давай другое...
- Тогда научи новичков на programmersforum'e правила читать и поиском пользоваться...
- Хм.. так что ты там про мир во всём мире говорил?
...

http://www.programmersforum.ru/showthread.php?t=21693

[isus]

Сообщение от Вавел из ГМТУ

Поймал както раз старик золотую рыбку и та говорит ему:
- Отпусти меня, я любое твоё желание исполню..
- Хочу мир во всём мире и чтобы войн не было..
- Не дед, это слишком сложно... Давай другое...
- Тогда научи новичков на programmersforum'e правила читать и поиском пользоваться...
- Хм.. так что ты там про мир во всём мире говорил?
...

http://www.programmersforum.ru/showthread.php?t=21693

ну что-то в этом роде)
спасибо всем!