Предмет: Информатика, автор: VeraFrik

Составьте программу: возведение чётного числа в квадрат, а нечётного - в куб

Ответы

Автор ответа: ЧерныйГолубь
0
program n;
var 
     x: integer;
begin
writeln('Введите число');
readln(x);
if x mod 2=0 then writeln(x*x) else writeln(x*x*x);
end.
Похожие вопросы
Предмет: Геометрия, автор: kostyadrobchenko