(2*4)^301=(2^3)^301=2^903 => 100000... (903 ноля)
4^6000=(2^2)^6000=2^12000 => 10000.... (12000 нолей)
(8^229) = (2^3)^229=2^687 => 10000.... (687 нолей)
Получаем двоичное число после сложения:
100....100...100... в котором будет три единицы и остальные нули
отняв 13 (1101) получаем 0011 на конце, при этом все ноли в конце инвертируются до первой единицы слева,
получаем число 10...010...0(683 единицы)0011
итого 687 единиц в двоичной записи полученного числа
Var
m : array [1..7,1..5] of Real;
i,j : Byte;
sr : Real;
Begin
For i:=1 to 7 do
Begin
sr:=0;
For j:=1 to 5 do
Begin
m[i,j]:=Random(100);
Write(m[i,j]:5);
sr:=sr+m[i,j];
end;
Writeln(' Ср. знач. строки: ',sr/5:5:1);
end;
end.
Program z4;
var x,y:real;
begin
writeln('Введите x');
readln(x);
if(x>10) then
begin
y:=x - (power(x,2.4))/(x - 1/x);
writeln('При x = ',x,', функция вычисляется по формуле (y:=x - (power(x,2.4))/(x - 1/x)), и ее значение равно: ',y);
end;
if ((x>-1) and (x<=3)) then
begin
y:=x*power((2+x),2.5);
writeln('При x = ',x,', функция вычисляется по формуле (y:=x*power((2+x),2.5)), и ее значение равно: ',y);
end;
<span><u />end.<u />
Прошу прощения за долгий ответ. Не мастак я рисовать блок-схемы</span>
Const
maxN = 100; // Максимальное кол-во элементов массива
var
n, i: longint;
middle, sum, sum2: real; // Может быть нецелым числом
a: array[1..maxN] of real;
begin
write('Введите количество элементов массива: ');
readln(n);
sum := 0; // Считаем сумму всех элементов, чтобы найти среднее арифметическое
write('Введите элементы массива через пробел: ');
for i := 1 to n do begin
read(a[i]);
sum := sum + a[i];
end;
middle := sum / n; // Вычисляем среднее арифметическое
writeln('Среднее арифметическое = ', middle);
sum2 := 0; // Считаем сумму элеметов, меньших среднего арифметического
for i := 1 to n do
if a[i] < middle then
sum2 := sum2 + a[i];
writeln('Сумма элементов, меньших среднего арифметического = ', sum2);
end.