Странная задача.
75 бит / 8 = 9,375 Байт
9,375 Байт / 1024 = 0,0091552734375 КБайт
Ответ:
√3 - иррациональное число
Объяснение:
давай будем делать как отладчик)
конец первого круга: (1 < n) (не запускается если это не правда)
i = i * 2 = 2; s = s + i = 2;
конец Второго круга : (2 < n) (не запускается если это не правда)
i = i * 2 = 4; s = s + i = 6 (2 + 4);
конец Третьего круга (4 < n) (не запускается если это не правда)
i = i * 2 = 8; s = s + i = 14 (6 + 8)
конец Четвертого круга (8 < n) (не запускается если это не правда)
i = i * 2 = 16; s = s + i = 30 (16 + 14)
Внимание: Здесь S > 14 (и будет только увеличиваться)
=> 4 < n <= 8 => Максимальное n = 8
var
m : array [1..10] of Integer;
i : Integer;
begin
Writeln('Введите массив: ');
for i := 1 to 10 do
begin
Write('m[', i, '] = '); Readln(m[i]);
end;
Writeln('Отрицательные: ');
for i := 1 to 10 do
if m[i] < 0 then Writeln(m[i]);
end.