В некотором царстве, в некотором государстве жила-была…
Нет! Так все сказки начинаются. А моя сказка начинается по-другому.
На далёком острове среди бушующего океана Информации раскинулось государство Технология. Царствовала там мудрая Информатика. И были у неё подданные: Микросхемы, Мониторы, Процессоры, Клавиатуры, Компьютерные Мыши и многие другие жители.
Захотела Информатика общаться с другими государствами и построила Интернет-порталы. Узнали о государстве Технология на близких островах и далёких землях. Царица Информатика была щедрой правительницей. Она приходила на помощь всем, кто её об этом просил. Все радовались неоценимым подаркам Информатики.
Но один злой правитель захотел всё могущество и знание Информатики прибрать к своим рукам. Однако ему не удалось заполучить её знания, поэтому он решил причинить Информатике вред. И начал он создавать армию Вирусов. Вирусы были очень коварные. Под видом добрых намерений они пробирались в дома к Программам и портили их. Информатика и не догадывалась, какая угроза нависла над её жителями. Однажды она зашла к Windows XP, а он оказался испорченным и не узнал её. Информатика рассказала, кто она такая, и попросила вспомнить, кто его испортил. Windows вспомнил и сказал об этом Информатике.
Информатика созвала совет Старейшин и рассказала им о проблеме. Посовещавшись, они вместе начали создавать Антивирусы. Получилось целое войско: Dr. Web, Kaspersky, Avira, Panda, Nod32 и другие. Когда следующая партия Вирусов прошла через Интернет, на них набросились Антивирусы и связали их. Подлые враги рассказали, кто их сделал. Злого правителя поймали, посадили в клетку.
Царица Информатика не закрыла Интернет, а только расставила на границах стражу от Вирусов.
Так и по сей день правит Информатика в своём государстве и делится своими знаниями с добрыми людьми
//PascalABC.NET
//Версия 3.3.5, сборка 1650
begin
var (sum,p):=(0,1.0);
ReadSeqIntegerWhile(t->t<>0).ForEach(f->begin sum+=f; p:=p*f; end);
write('сумма: ',sum,'; произведение: ',p);
end.
Задание №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
Var a, b, c, d, e, f, final : integer;
begin
write('введите 6 чисел через пробел: ');
readln(a, b, c, d, e, f);
final := (a + b + c + d + e+ f) / 6;
writeln('среднее арифметическое равно , final);
end.