ОЧЕНЬ НАДО НАРОД! ПОМОГИЕТ
Создайте алгоритм и программу для вычисления значения функции F по формулам:
Var
a,r : integer;
begin
readln (a);
if a < - 10 then
r := 2 * a * a * a
else
if a > 5 then
r := 3 * a * a
else
r := a * a - 3 * a +1;
writeln (r);
end.
Оцени ответ
