Регистрация
shlama283
02.07.2022 15:10
Информатика
Есть ответ 👍

Язык pascal abc введите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся на 4, и оканчиваются на 6. если таких чисел нет, то вывести об этом сообщение.

142
306
Посмотреть ответы 2

Ответы на вопрос:

natali3171
natali3171
4,5(62 оценок)
  program z;   var a: array[1..5] of integer;   i,sum: integer;   begin   for i: =1 to 5 do   begin   readln(a[i]);   end;   for i: =1 to 5 do   begin   if(a[i] mod 4=0) and (a[i] div 10=6) then sum: =sum+a[i];   end;   writeln(sum);   end.    
sddnblck
sddnblck
4,8(60 оценок)

64 Мб

Объяснение:

Допустим, первый раз, запись, дискретизация и кодирование привели к созданию файла размером x=56 Мб.

Во второй раз изменилось следующее:

вместо одного канала (моно), стало два канала (стерео) ⇒

размер стал 2*x= 2x

Разрешение в два раза выше (больше) ⇒ размер стал еще в два раза больше

2*2x=4x

Частота дискретизации уменьшилась в 3,5 раза ⇒ размер уменьшился в 3,5 раза

4x / 3,5 = 4*56 / 3,5 = 64 Мб

Популярно: Информатика