Program Pr1;
uses crt;
var a,b,c:integer;
f:boolean;
Begin
clrscr;
f:=false;
readln(a,b,c);
if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then f:=true;
writeln(f);
end.
Итак. Общий размер файла 1,5 = 1536 Мбайт. Размер буфера T 128 Мбайт. Значит, для передачи файла через этот буфер его потребуется заполнить 1536 / 128 = 12 раз. Получилось целое число, поэтому мы посчитаем время, которое требуется на шаги 1-6, и умножим его на 12.
Так как ничего не сказано о времени на закрытие соединения, будем считать, что на это время не тратится.
1) Устанавливаем соединение с А - 1 секунда
2) Принимаем от устройства А 128 Мбайт со скоростью 8 Мбайт в секунду - 128 / 8 = 16 секунд
3) Закрываем соединение с А
4) Открываем соединение с В - 4 секунды
5) Передаём устройству В 128 Мбайт со скорость 2 Мбайта в секунду - 128 / 2 = 64 секунды
6) Закрываем соединение с В
Итого: 1+16+4+64 = 85 секунд
85 * 12 = 1020 секунд = 17 минут.
Ответ: 17 минут.
S=a^3*scrt(3)/4
r=R/2
1=R/2
R=2
a=R*scrt(3)=2 *scrt(3)
s=18( с корнями писать не удобно, подставишь в формулу)
Var
R:real;
Begin
Write('R = ');ReadLn(R);
WriteLn('L = ',2*Pi*R);
WriteLn('S = ',Pi*R*R);
End.