Jater

Elena_until

Nov 27th, 2012
122
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. {Долгожитель (возраст не менее 100 лет) обнаружил однажды,
  2. что если к сумме квадратов цифр его возраста прибавить
  3. число дня его рождения, то как раз получится его возраст.
  4. Сколько лет долгожителю?}
  5. var
  6.     x,y,s,i:integer;
  7. begin
  8.     x:=99;
  9.     repeat
  10.         inc(x);
  11.         y:=x;s:=0;
  12.         while y>0 do
  13.         begin
  14.             i:=y mod 10;
  15.             y:=y div 10;
  16.             s:=sqr(i)+s;
  17.         end;
  18.         for i:=1 to 31 do
  19.             if (s+i)=(x) then writeLN('Den'' rojdenia: ',i,', vozrast: ',x);
  20.     until(s=x);
  21.     read;
  22. End.
RAW Paste Data