Составьте алгоритм возведения чётного числа в квадрат, а не чётного-в куб.
2 комментария:
На PascalABC.NET 3.2:
begin var a:=ReadInteger('a='); Writeln(a.IsEven?a*a:a*a*a)end.
На PascalABC.NET 3.2:
begin var a:=ReadInteger('a='); Writeln(a.IsEven?a*a:a*a*a)end. Ответы
Гость Var A:integer;
Begin
Write('Введите целое число: ');ReadLn(A);
if A mod 2 = 0 then A:=A*A
else A:=A*A*A;
WriteLn(A);
End.
Нет комментариев
Похожие вопросы
Информатика
На Паскале определите значения переменных с и d если а:=12,b:=12,с:=45 mod a; d:=b div c...
Информатика
Помогите пожалуйста...
Информатика
Пожалуйста помогите 9.10...
Информатика
Помогите пожалуйста...
Список предметов
