М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vikalavrlavr
vikalavrlavr
25.12.2022 15:02 •  Информатика

Документ (без упаковки) можно передать по каналу связи с одного компьютера на другой за 60 сек. если предварительно упаковать документ архиватором, передать упакованный документ, а потом распаковать на компьютере получателя, то общее время передачи (включая упаковку и распаковку) составит 26 сек. размер упакованного документа составляет 30% размера исходного документа. сколько всего времени (в секундах) ушло на упаковку и распаковку данных, если процесс сжатия в 3 раза быстрее, чем процесс распаковки? решение: время передачи сжатого файла (без учета времени на сжатие и распаковку) составит ответ 1 секунд. время на сжатие и распаковку составит: ответ 2 - ответ 3 = ответ 4 секунд. так как процесс сжатия в три раза быстрее, чем процесс распаковки, то время на сжатие составит ответ 5 секунд, а время на распаковку ответ 6

👇
Открыть все ответы
Ответ:
MisterStickman1
MisterStickman1
25.12.2022
Замечание. Так как количество вводимых чисел заранее не известно, то откроем бесконечный цикл со всегда верным условием True, но как только будет введено число 0, остановим цикл командой break.

Программа:

program z;
var k,s,x:integer;
begin
k:=0;              {начальное значение количества двузначных чисел}
s:=0;              {начальное значение суммы двузначных чисел}
while True do  {открываем бесконечный цикл}
begin
readln(x);        {вводим число х}
if x=0 then break;  {если введенное число равно 0, то остановить цикл}
if (x>9)and(x<100) then  {если число двузначное, т.е. от 10 до 99} 
    begin 
    k:=k+1;         {количество увеличиваем на 1}
    s:=s+x;         {увеличиваем предыдущее значение суммы на число х}
    end;
end;
if k=0 then writeln('NO')  {если двузначных чисел не было, то вывод NO}
   else writeln(s/k);          {иначе вывод ср.арифметического}
end.
4,8(76 оценок)
Ответ:
1.
алг сумма
нач цел sum=0,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
нц для i от 1 до 5
sum:=sum+a[i]
кц
вывод sum
кон
2.
алг произведение
нач цел mult=1,i, цел таб a[1:5] 
вывод "Введите 5 элементов массива:" 
нц для i от 1 до 5 
ввод a[i] 
кц 
нц для i от 1 до 5 
mult:=mult*a[i] 
кц 
вывод mult
кон
3.
алг максимум
нач цел макс,i, цел таб a[1:5]
вывод "Введите 5 элементов массива:"
нц для i от 1 до 5
ввод a[i]
кц
макс:=a[1]
нц для i от 2 до 5
если a[i]>макс то
макс:=a[i]
все
кц
вывод макс
кон
4,5(64 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ