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

#include < iostream> using namespace std;

main() { int x; cin> > x; if (x%2==0) { x=x*x; } else { x=x*x*x; } cout< < x; }

var x: integer;

begin

readln(x);

if x mod 2=1 then x: =x*x*x else x: =x*x;

writeln(x);

end.

var a: integer;

begin

if a mod 2 = 0 then a: =a*a else a: =a*a*a;

write(a);

end.

на будущее. уточняйте язык. 

если нужен просто алгоритм:

найти остаток от деления на 2 числа. если остаток=0 тогда переменной а присвоить её же значение в квадрате. в противном случае, возвести в куб.

программа на языке паскаль

program pr;

s: string;

begin

readln (s);

if length(s) mod 2=0 then writeln ('четное') else writeln('не четное');

readln;

end.

var s : string; k,f : longint; begin  readln(s);   val(s[1],k,f);   if f< > 0 then writeln('некоректно введена строка')   else if length(s)-1=k then writeln('равно')            else writeln('неравно'); end.