Var x, y: real;
begin
readln(x);
if x < 0 then y := Abs(sin(x));
if x > 3 then y := 1 / 2 + x * x * x;
if (x >= 0) and (x <= 3) then y := x / (x + 3);
write('y(', x, ') = ', (y):0:3)
end.
Все однозначные числа от 1 до 9 - это числа Армстронга.
Потому что однозначное число в 1 степени равно самому этому числу.
Сумма этих чисел 1+2+3+4+5+6+7+8+9=45.
Следующее число Армстронга - как раз 153 > 20.
Ответ 45
Минимум 5 раз необходимо выполнить операцию
// версия для простого паскаля
var age:byte;
begin
writeln(' Введите ваш возраст в годах. ');
readln(age);
writeln(' Через 5 лет вам будет ', age+5, ' лет');
end.