нарисовать блок-схему и написать программу. С клавиатуры - вопрос №13185802 от умник20056 03.03.2022 20:32

Question

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

умник20056 · Answer

var x:integer; begin  readln(x);  if x 0 then x:=x*2;  if x = 0 then x:=x*x;  writeln(x);end.Объяснение:...