нарисовать блок-схему и написать программу. С - вопрос №13186704 от про100Banan 20.10.2022 01:59

Question

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

про100Banan · Answer

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