Задача: Долгожитель (не менее 100лет) обнаружил,что если к сумме квадратов цифр его возраста прибавить его дату рождения,то получится его возраст,сколько ему лет?
Это Паскаль, напишите ответ пожалуйста.
Это Паскаль, напишите ответ пожалуйста.
More Questions From This User See All
Answers & Comments
for var v := 100 to 150 do begin //возраст от 100 до 150 лет
var q := Sqr(StrToInt(IntToStr(v)[1])) //Суммируем квадраты каждой цифры
+ Sqr(StrToInt(IntToStr(v)[2])) //из возможного возраста
+ Sqr(StrToInt(IntToStr(v)[3])); //и записываем его в q
for var d := 1 to 31 do begin //Берем день месяца от 1 до 31
if (q + d) = v then begin //Если q + день = возрасту
println('День:', D, ' Возраст: ', v); //Выводим сообщение
end;
end;
end;
end.