Составлю на языке Паскаль:
var a:real;
begin
read(a);
if a mod 2 = 0 then a:=a*a
else a:=a*a*a;
end.
<span> С помощью </span>клавиши<span> Backspace </span><span>можно удалить символ слева от курсора.</span>
Компьютер
------------------
Ответ: 3
Из таблицы:
1) компьютер E соединён только с одним компьютером => рисунки 1 и 2 не подходят
2) компьютер E соединён только с одним компьютером и этот компьютер B => рисунок 4 не подходит
3) проверяем остальные соединения => рисунок 3 точно нужный
begin
var a := ArrRandom(10, 1, 10); a.Println;
for var i := 0 to a.High do
if i.isOdd then a[i] *= 2
else a[i] *= 3;
a.Println;
end.