Ответ(ы) на вопрос:
ГостьVar n : Integer;
Begin
Writeln('Введите число');
Readln(n);
if n mod 2 = 0 then n:=sqr(n) else n:=sqr(n)*n;
Writeln('Chislo =',n);
Readln; { пауза для просмотра результата до нажатия "Enter"}
end.
Не нашли ответ?
Похожие вопросы