Lala19962
15.05.2020 10:07

У Васи есть доступ к Интернет по высокоскоростному одностороннему радиоканалу, обеспечивающему скорость получения им информации 218 бит в секунду. У Пети нет скоростного доступа в Интернет, но есть возможность получать информацию от Васи по низкоскоростному телефонному каналу со средней скоростью 214 бит в секунду. Петя договорился с Васей, что тот будет скачивать для него данные объемом 12 Мбайт по высокоскоростному каналу и ретранслировать их Пете по низкоскоростному каналу. Компьютер Васи может начать ретрансляцию данных не раньше, чем им будут получены первые 256 Кбайт этих данных. Каков минимально возможный промежуток времени (в секундах), с момента начала скачивания Васей данных, до полного их получения Петей?

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
SakhanovMadiar1
16.11.2022 09:10
1. Современный вариант
// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  ReadlnString.GroupBy(c->c).Select(x->(x.Key,x.Count)).OrderBy(x->x[0])
    .Select(x->Format('"{0}" - {1}',x[0],x[1])).Println(NewLine)
end.

Пример
10101110
"0" - 3
"1" - 5

2. Школьный вариант в стиле Pascal ABC, Free Pascal

var
  s:string;
  i,k0,k1:integer;
begin
  Readln(s);
  k0:=0; k1:=0;
  for i:=1 to Length(s) do
    if s[i]='0' then Inc(k0) else Inc(k1);
  Writeln('"0" - ',k0);
  Writeln('"1" - ',k1)
end.

Вывод результатов точно такой же, как и выше.
0,0(0 оценок)
Ответ:
Hyliganka0666
10.06.2020 01:05
var 
a, b: integer;

begin 
write('Введите a: ');   
readln(a);   
write('Введите b: '); 
readln(b); 
var x := Range(a, b); 
writeln('Последовательность: '); 
x.Println; 
writeln('Ср. ариф. неотриц чисел: '); 
writeln(x.Where(x -> x >= 0).Average);
end.


var  a, b,i,s: integer;  k: real;

begin  
write('Введите a: ');    
readln(a);    
write('Введите b: ');  
readln(b); 
writeln('Последовательность: ');  
for i:=a to b do  write(i,' ');
writeln();
s:=0;
for i:=a to b do    
if i>=0 then begin   
s:=s+i;   
k:=k+1;
end;
writeln('Ср. ариф. неотриц чисел: '); 
write(s/k);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота