Меню вроде , если ошибаюсь не ругай
1. 4096*8=32768 Файл в битах
32768/8=4096 Скорость соединения бит/сек
8*1024*8=65536 Размер второго файла в битах
65536/4096=16 секунд на передачу второго файла
Ответ:16секунд
2. 4 мб = 4096 кб
Делим на 16 сек, получаем скорость передачи файлов = 256 кб в сек
Теперь 2048 кб делим на скорость передачи = 8 сек.
Ответ 8 секунд.
X1 = int(input())
y1 = int(input())
x2 = int(input())
y2 = int(input())
if x1*x2>0 and y1*y2>0:
print("YES")
else:
print("NO")
Пример:
3
3
5
1
YES
{вот правильное решение я там забыл то чтобы подсчитывать число букв a}
<span>var </span><span><span> s</span>: string;</span><span><span>
i</span>, id, len, max, count,q: byte;</span>
begin
<span>
q:=0;
readln(s);</span><span><span>
len </span>:= length(s);</span><span><span>
max </span>:= 0;</span><span><span>
id </span>:= 0;</span>
<span><span> count </span>:= 0;</span><span>
for i:=1 to len do </span><span>
if s[i] <> ' ' then</span><span><span> count </span>:= count + 1</span><span>
else begin</span><span>
if count > max then begin</span><span><span>
max
</span>:= count;</span><span><span>
id </span>:= i - count;</span><span>
end;</span><span><span>
count </span>:= 0</span><span>
end;</span>
<span>
if count > max then begin </span><span><span>
max </span>:= count;</span><span><span>
id </span>:= i - count;</span><span>
end<span>;
</span></span>
<span> for i:=id to id+max do</span><span>
if s[i] = 'a' then begin</span><span><span> q:=q+1; s</span>[i] := 'b';</span>
<span>
writeln(s,' ' , q);</span>
end;
<span>end<span>.
</span></span>