Который раз повторяю, указывайте на каком языке нужно писать программу. По классике написала на Pascal:
program ff;
var
x : integer;
begin
Write('Введите число ');
Readln(x);
if x mod 2 = 0 then writeln(x/2)
else writeln(sqr(x));
end.
<span>при выполнении оператора вывода write (13:4) отобразиться __13
</span>При выполнении оператора вывода write (14, 15, 16) отобразиться 141516
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var f:=ArrRandom(9,-50,50); f.Println;
var k:=f.Select(t->t*t).ToArray; k.Println
end.
<u>Пример</u>
39 0 28 31 -35 -2 -11 -48 -32
1521 0 784 961 1225 4 121 2304 1024