Question

даю 40 баллов помогите пожалуйста составить алгоритм ​

Answer 1

1 схема для 1 задания (где A)

Код программы для 1 задания:

var X, A:integer;

begin

 writeln('Введите X');

 readln(X);

 if (X < 0) then

   A := 1

 else

   A := X + 1;

 writeln('A = ', A);

end.

2 схема для 2 задания (где Q)

Код программы, для 2 задания:

var Q:real;

begin

 writeln('Введите число');

 readln(Q);

 if (Q < 0) then

   Q := Q*Q

 else

   Q := Q*Q*Q;

 writeln('Q = ', Q);

end.