Версия для печати темы

Автор: neomax 13.06.2008 22:04

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

Автор: Alеx J'Root 13.06.2008 22:40

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

109 лет

Автор: Michael_Rybak 13.06.2008 22:42

М

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

Автор: andriano 14.06.2008 0:06

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

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

Автор: Alеx J'Root 14.06.2008 0:36

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

Автор: Michael_Rybak 14.06.2008 0:38

!

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

Автор: Alеx J'Root 14.06.2008 0:44

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

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

Автор: Michael_Rybak 14.06.2008 0:46

\

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

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

Автор: klem4 14.06.2008 20:37

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.