Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
Эта функция выведет 20.
Сначала мы передаём 2 в функцию h как указатель.
Увеличиваем 2 на один, а потом ещё на один, у нас выходит 4.
Возвращаем 4+4=8.
Потом мы передаём 4 в функция h как указатель.
Увеличиваем 4 на один, а потом ещё на один, у нас выходит 6.
6+6=12.
Ну а потом мы возвращаем сумму наших двоих функций h.
12+8 = 20.
Понятно, что число должно быть ОТРИЦАТЕЛЬНЫМ, поскольку, если оно положительное, например равно 2 получаем
2, 2, 5. Но это НЕУБЫВАЮЩИЙ ряд.
Тогда пусть X=-10
Получаем:
-10, 10, 101
Теперь пусть Х = - 1/2.
Получаем
-1/2, 1/2, 5/4.
Очевидно в программе будет строчка:
Writeln(x, ' ', -x, ' ', 1+x*x);
Домашние приборы,размер,и цвет