Помощь - Поиск - Пользователи - Календарь
Полная версия: Помогите написать программу на паскале
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
neomax
Долгожитель (возраст не менее 100 лет) обнаружил однажды, что если к сумме квадратов цифр его возраста прибавить число дня его рождения, то как раз полу-чится его возраст. Сколько лет долгожителю?
Alеx J'Root
Родился 27 февраля 1899 г.

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

исправляем

andriano
Alеx J'Root,
неправильно, надо так:
begin
writeln('109 лет');
end.
Alеx J'Root
Точно, как я не догадался. Странно, что не volvo меня исправил smile.gif)
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.

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.