Экзаменационные Бесплатные ответы 2021 | УЗБЕКИСТАН Экзаменационные ответы.

Администрация: @VKMADM
https://t.me/otv_egzamen​

10 минут

Объяснение:

Обозначим за  V  — количество данных,  q  — сорость передачи,  t  — время передачи

Тогда  V1=V2=12V=12⋅50=25  Мбайт

Переведём  25  Мбайт в Кбиты:

V1=V2=25Мбайт =25Мбайт⋅8бит=200Мбит=200⋅210 Кбит =50⋅4⋅210 Кбит=50⋅22⋅210 Кбит=50⋅212 Кбит

Время передачи определяется как  t=t1+t2=V1q1+V2q2 , где  q1=1024=210  Кбит/с,  q2=10242=512=29  Кбит/с

Таким образом,  t=50⋅212210+50⋅21229=50⋅22+50⋅23=50⋅4+50⋅8=200+400=600  c

Переведём полученный результат в минуты ( 1  мин  =   60  с):

600с:60с=10  мин.

Без массива:

Program n_1;

var a, b, i, n: integer;

begin

   a:=0; b:=0;

   for i:=1 to 15 do begin

       read(n);

       if n mod 2 = 1 then a:=a+1

       else b:=b+1;

   end;

   if a>b then writeln('Нечетных чисел больше, чем четных')

   else writeln('Четных чисел больше, чем нечетных');

end.

С массивом:

Program n_1;

var a, b, i: integer; n: array [1..15] of integer;

begin

   a:=0; b:=0;

   for i:=1 to 15 do begin

       read(n[i]);

       if n[i] mod 2 = 1 then a:=a+1

       else b:=b+1;

   end;

   if a>b then writeln('Нечетных чисел больше, чем четных')

   else writeln('Четных чисел больше, чем нечетных');

end.

Но честно, не вижу смысла использовать массив.