Дано число не равное нулю, если оно четное возвести в квадрат если нет - в четвертую степень. На языке паскаль решить, желательно с блок-схемой. Помогите!
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
n:=n.IsEven?n*n:Sqr(n*n);
Writeln('Результат ',n)
end.
Примеры
n= 8
Результат 64
n= 7
Результат 2401
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('n=');
n:=n.IsEven?n*n:Sqr(n*n);
Writeln('Результат ',n)
end.
Примеры
n= 8
Результат 64
n= 7
Результат 2401
Новые вопросы