andreymarkov2090
25.02.2020 20:28

Дано число не равное нулю, если оно четное возвести в квадрат если нет - в четвертую степень. на языке паскаль решить, желательно с блок-схемой.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
mechta771
07.10.2020 07:21
// 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
0,0(0 оценок)
Ответ:
Keks5478568
07.10.2020 07:21
Program m; // начало проги с названием m var // задаем переменные a:integer; // переменная а begin // начало самого кода write('input a'); // выводим на экран надпись input a read(a); // записываем в а число, введенное с клавиатуры if a>0 then a:=a*a else a:=a*a*a; // если а>0, тогда записываем в "а" - "а квадрат", иначе "а куб" writeln(a); // выводим на экран а end. // завершение

Попробуй это, надеюсь
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота