Question

Помогите пожалуйста, нарисовать блок-схему и написать программу.
С клавиатуры введите число x если оно отрицательное то увеличьте его в 2 раза в остальных случаях возвести X квадрат. Вывести результат

Answer 1

Ответ:

var x:integer;

begin

 readln(x);

 if x < 0 then x:=x*2;

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

 writeln(x);

end.

Объяснение: