Помогите написать программу на паскале Опции

[neomax]

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

[Alеx J'Root]

Родился 27 февраля 1899 г.

109 лет

[Michael_Rybak]

М

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... исправляем

[andriano]

Alеx J'Root,
неправильно, надо так:

begin
  writeln('109 лет');
end.

[Alеx J'Root]

Точно, как я не догадался. Странно, что не volvo меня исправил )

[Michael_Rybak]

Странно, что не volvo меня исправил

!

хочешь в премод? правила, п.8.

[Alеx J'Root]

Я отвечаю и нарушаю п.8, т.к. провокация со стороны Michael_Rybak.

Точно, как я не догадался.

2 Michael_Rybak: в сообщении есть отношение к теме!!!!! Я выразил сожаление, что мне не хватило мозгов, чтобы сделать как andriano. Поэтому п.8 тут не уместен!

[Michael_Rybak]

в сообщении есть отношение к теме!!!!!

\

ну и что?! я ведь не говорил, что это флуд.

ты теперь собираешься в каждом посте сообщать нам о задевшем твое самолюбие вольво? пиши ему лично.

[klem4]

function good_age(_age: integer; var day: integer): boolean;
var
  sum, temp, age: integer;
begin
  sum := 0;

  age := _age;

  while age > 0 do begin
    temp := age mod 10;
    inc(sum, temp * temp);
    age := age div 10;
  end;

  day := _age - sum;
  good_age := day <= 31;
end;

var
  age, max_age, day: integer;

begin
  max_age := 300;

  for age := 100 to max_age do
   if good_age(age, day) then writeln('age = ', age, ' day = ', day);
end.