с паскалем Составить блок-схему алгоритма и программу для обработки массива из 20 чисел X=(0,3;5;68;-3;32;-80;-9;-26;-9;40;36;13;15;28;-0,7;-36;-0,3;8;15;-7) при b=5. Вычислить произведение и количество элементов, не равных нулю и меньших b.
Задание №1 60 Мбайт * 8 = 480 Мбит - размер файла в мегабитах 480 Мбит * 1024 = 491520 Кбит - размер файла в килобитах 491520 / 2 = 245760 Кбит - половина файла 245760 Кбит / 256 = 960 секунд - время передачи первой половины файла 245760 Кбит / (256 / 2) = 245760 Кбит / 128 = 1920 секунд - время передачи втораой половины файла 960 с + 1920 с = 2880 секунд - общее время передачи В одной минуте 60 секунд: 2880 / 60 = 48 минут - передан весь файл
Задание №2 Переведем килобайты в биты: N = 3750кбайт = 30720000бит Вычислим скорость передачи информации: V = 30720000/120 V = 256000 бит/c
60 Мбайт * 8 = 480 Мбит - размер файла в мегабитах
480 Мбит * 1024 = 491520 Кбит - размер файла в килобитах
491520 / 2 = 245760 Кбит - половина файла
245760 Кбит / 256 = 960 секунд - время передачи первой половины файла
245760 Кбит / (256 / 2) = 245760 Кбит / 128 = 1920 секунд - время передачи втораой половины файла
960 с + 1920 с = 2880 секунд - общее время передачи
В одной минуте 60 секунд:
2880 / 60 = 48 минут - передан весь файл
Задание №2
Переведем килобайты в биты: N = 3750кбайт = 30720000бит
Вычислим скорость передачи информации: V = 30720000/120
V = 256000 бит/c
var
k: integer;
begin
readln(k);
if k< 0 then
writeln('не может такого быть')
else
begin
write('мы нашли в лесу ',k,' гриб');
if (k mod 100 in [5..19]) then
writeln('ов')
else if (k mod 10 in [2..4]) then
writeln('а')
else if (k mod 10=1) then
writeln
else
writeln('ов');
end;
end.