const
inf = 32767;
var
a, min : integer;
begin
min := inf;
while not eoln do
begin
read (a);
if (a < min) and (a mod 3 = 0) then min := a;
end;
if min < inf then writeln (min)
else writeln ('Нет чисел, кратных 3-ем');
end.
Как-то раз мышка спрашивает у монитора:"Что ты любишь по кушать?"Он в ответ:"Я люблю есть мышек!" Мышка испугалась и спрашивает тихим голосом:"Почему?"Он в ответ:"Я пошутил, а так ЯБЛОКИ." Мышка:"Я тоже."
1) Линия связи - Берем условие передается второй файл в А и в Б. Следовательно в Б - 15сек., а в А 15 * 4 = 60 сек.
2) Файл передаваемый А в 2 раза по разрешению хуже, следовательно его объем 2 раза меньне и время передачи в А будет в 2 раза меньше. 60 сек /2= 30сек
<span>3) Файл передаваемый А в 3 раза по разрешению выше, следовательно его объем 3 раза больше и время передачи в А будет в 3 раза больше 30 * 3 = 90 сек
Ответ 90 сек</span>
После описания переменных var ... должна быть строка begin в конце программы должна быть строка end.