Найти x из соотношения 8x кбайт = 16 гбайт

8^x кбайт = (2^3)^x = 2^3x 16 гбайт = 2^4 гбайт = 2^4 * 2^10 мбайт =  2^4 * 2^10 * 2^10 кбайт = 2^24 кбайт приравняем обе части, тк единицы измерения стали одинаковыми: 2^3x =  2^24  следовательно: 3х = 24 х = 8 ответ: 8^8 кбайт = 16 гбайт

Var       c, y, a, h, s: real; begin       a : = 2.0;       h : = 1.0;       c : = -1.57;             repeat               y : = c - a;               writeln(c: 7: 2, ' ', y: 7: 2);               s : = s + y;               c : = c + h;       until c > 1.57;             writeln(s); end.

№1 var n,x: integer;   begin  x: =1;   writeln('введите натуральное число');   read(n);   while x< > n do begin  write(sqr(x), ' ');   x: =x+1;   end;   write(sqr(n));   end. №2 var x,k: integer;   begin  k: =0;   writeln('введите число');   read(x);   while x> 0 do begin  if x mod 10=1 then k: =k+1;   x: =x div 10;   end;   writeln('количество едениц в числе = ',k);   end.