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

#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 тогда переменной а присвоить её же значение в квадрате. в противном случае, возвести в куб.

var

  x : array [1..15] of integer;

  i : integer;

  min : integer;

  kol_nol : integer;

begin

  kol_nol : = 0;

  for i: =1 to 15 do

  begin

  write ("введите элемент массива: ");

readln(x[i]);

end;

min : = x[1];

for i : = 0 to 15 do

begin

  if (x[i] > 0) then

  begin

  if (x[i] < min) then

  begin

    min : = x[i];

  end;

  end;

  if (x[i] = 0) then

  begin

  inc(kol_nol);

  end;

writeln(min);

writeln(kol_nol);

end;

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);

: знайти суму всіх натуральних чисел від 1 до п. program suma 2; var i, n, s: integer; begin writeln (‘ведіть кількість натуральних чисел: ’);   write (‘n=’); readln (n);   i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);

  i: =1; s: =0;   repeat     s: =s+i;     i: =i+1;   until i> n;   writeln (‘s=’,s);