Просто пишешь 4 круга с пересечениями и в пересечениях пишешь то что повторяеться
7000*28=196000(бит) - Это мы нашли размер файла
196000÷6000=32.66(сек) - Это мы нашли время, через которое скачается файл у другого провайдера.
Var x,y,z:integer;
begin
x:=5; y:=-6
if (x>y) then z:=x+y else z:=y-x;
Writeln(Z);
end.
Пробовал, решить невозможно, или я такой дуболом.
Для определения числа в разряде десятков, нужно как минимум 9 вопросов.
Спрашивая "Больше ли оно K" - добиться этого невозможно.
Но могу подсказать начало :)
program dlya_Pro100LiNa;
var a,b,c,d:integer;
m:boolean;
begin
writeln ('Введите число от 1-го до 1000');
repeat read(a) until (a>=1)and(a<=1000);
...
end.
Решаем задачу по формуле N = 2i
N- мощность алфавита
i - вес одного символа (в битах)
N = 16, следовательно i = 4 (16 = 24)
N = 256, следовательно i = 8 (256 = 28)
Ответ: в 2 раза