Question

СОСТАВТЕ БЛОК СХЕМУ алгоритма на языке Поскаль для решения вычесления значения функции,заданной следующим образом

Answer 1

Ответ:

var x, y: integer;

begin

   readln(x);

   if x > 0 then y := x * x * x

   else y := 1 + x;

   writeln(y);

end.