
Патрикий
5 год назад
Дано число не равное нулю, если оно четное возвести в квадрат если нет - в четвертую степень. На языке паскаль решить, желательно с блок-схемой. Пожалуйста посчитайте!
ОТВЕТЫ

Pahom
Oct 24, 2020
begin
var n:=ReadInteger('n=');
n:=n.IsEven?n*n:Sqr(n*n);
Writeln('Результат ',n)
end.
n= 8
Результат 64
n= 7
Результат 2401
229
Смежные вопросы: