Решите информатику, хотя бы на 3​


Решите информатику, хотя бы на 3​

moon455808 moon455808    2   05.06.2020 10:03    9

Ответы
Илья11345 Илья11345  30.08.2020 11:51

var n, a :integer;

begin

readln(n);

if n mod 2 = 0 then a:=(n*n*n) else a:=n*n;

writeln (a);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика