//первый вариант
var
i, summ:integer;
begin
summ := 0;
for i := 1 to 99 do
if i mod 2 = 1 then
summ := summ + i;
writeln('Сумма нечетных чисел от 1 до 99 равна: ', summ);
end.
//второй вариант
var
i, summ:integer;
begin
summ := 0;
i := 1;
while i < 100 do
begin
summ := summ + i;
i := i + 2;
end;
writeln('Сумма нечетных чисел от 1 до 99 равна: ', summ);
end.
25*32=750 символов на странице
750*32=24000 символов всего
24000*8=192000 бит
Var x: real;
begin
readln(x);
if x>=0 then x:= writeln(x*2) else x:= writeln(x/2);
<span>end.
</span>Второй вариант:
var x: real;
begin
readln(x);
if x>=0 then x:=x*2 else x:= x/2;
writeln(x)
end.
var
a: real;
begin
writeln('Введите вещественное число');
readln(a); //Вводим вещественное число
if a < 0 then writeln('Модуль числа а: ', abs(a)) {Если введенное число - отрицательное, печатаем его модуль, иначе печатаем квадратный корень из этого числа с округлением до 5 знаков после запятой}
else writeln('Квадратный корень из числа а: ', sqrt(a) : 0 : 5);
end.
1) ответ: 001
2)
160 кбайт * 1024 байт к байт * 8 бит в байт = 1 310 720 бит
1280 пикс * 960 пикс = 1 310 720 бит / 1 228 800 пикселей = 1,06 ~1 бит на пиксель (меньше бита быть не может).
2^1 = 2-ух цветовая палитра (чёрно-белая) или одно-битовая палитра.
а остаток на всякий ховно пойдет типо формата или сжатия или выделили лишнее (запас или просчёт в большую сторону).
3)
40 мегабайт * 1024 раз * 1024 раз * 8 раз = 335 544 320 бит
30 мегабайт * 1024 раз * 1024 раз * 8 раз = 251 658 240 бит
4 минуты * 60 сек минута = 240 сек
16 кГц * 1000 = 16000 Гц
24 бит на один Гц * 16000 Гц за один сек * 2 стерео * 240 сек = 184 320 000 бит вес музыка.wav, качество PCM
16 бит * 16000 Гц за сек * 2 канала * 240 сек = 122 880 000 бит вес файл
24 * 32000 * 2 стерео канала * 240 = 368 640 000 бит
16 * 32000 * 2 канала стерео (в кажд канале будет 16 * 32000) * 240 = 245760000 бит
последний 4) влезет и ещё место останется, точность до 10 мегабайт это 40 + или - 10.
