В космической гвардии 18 кораблей достаточно ли 4 бит для кодирования каждого корабля

в египетском письме было более 750 иероглифов, не было гласных. иероглифы обозначали целые слоги и звуки.

паскаль же?

var s, x: string; c, n, err, i, d, k: integer; begin readln (s); n: =length(s); for i: =1 to n do begin

d: =d+k;

val(s,k,err);

end;

write (d);

end.

здесь идёт чередование чётных чисел с нечётными

var s,x,n,i: integer;

begin

  read(x,n);

s: =1;

  for i: = 1 to n do

      s: =s*x;

  writeln(s);

end.