Чтобы найти время передачи нужно размер файла разделить на скорость передачи файлов
t=3600*2^10*2^3/192*2610*2^3= 3600/192=18,75секунд
примерно 19 секунд
Var A,Min,N:integer;
Begin
Min:=30001;
Read(N);
For N:= 1 to N do
Begin
Read(A);
if (A mod 7 = 0)and(A < Min) then Min:=A;
End;
Write(Min)
End.
1.
Var A,B : Integer;
Begin
Readln(A,B);
If A>B then Writeln(A,' ',B*B) else Writeln(B,' ',A*A)
end.
2.
Var A : Byte;
Begin
Readln(A);
Case A of
1..3 : Writeln('Первый квартал');
4..6 : Writeln('Второй квартал');
7..9 : Writeln('Третий квартал');
10..12 : Writeln('Четвертый квартал');
end;
end.
а) замок
б) знаки задиака или месяца
в) природа
Зима,лето,осень,весна