Var sum,pro,i:integer; begin i:=5; sum:=0; pro:=1; while i<=50 do begin sum:=sum+i; pro:=pro*5; i:=i+5; end; writeln('Сумма = ',sum,', Произведение = ',pro); end.
Var s,p : BigInteger; i : Integer; Begin p:=1; s:=0; For i:=1 to 10 do Begin s:=s+i*5; p:=p*i*5; end; Writeln('Сумма: ',s); Writeln('Произведение: ',p); end.
Вариант решения №1: 1)8 МБайт = 8192 КБайт 2) 8192 Кбайт / 4096 Кбайт = 2 - это отношение первого файла,которое мы передавали к второму. Тем самым решение получается из этого таким образом:
Первый файл больше второго в 2 раза. При неизменяемой скорости, второй файл соответственно будет передан в 2 раза быстрее -> 128/2 = 64 сек.
Вариант решения №2: 1) 8 МБайт = 8192 КБайт 2) найдём скорость соединения:
8192 Кбайт / 128 сек = 64 Кб/сек.
3) узнаем время передачи второго файла
4096 Кбайт / 64 Кб/сек = 64 сек.
ОТВЕТ : 64 сек.
Отмечу,что при решении похожих задач некоторые при переводе скорости и других местах вместо 1024 считают как 1000. Из-а этого в решении могут появиться такие ответы (для данной задачи) как 65,536 сек.
Обращайте внимание на то,с какой буквы написана величина! КБ=КБайт = 1024 байт. Если первая заглавная,то считается 2 в степени, то есть как принято в информатике. кБайт = 1000 байт. Если с маленькой,то приставка кило считается по системе СИ, как в физике и является 10^3.
begin
i:=5;
sum:=0;
pro:=1;
while i<=50 do begin
sum:=sum+i;
pro:=pro*5;
i:=i+5;
end;
writeln('Сумма = ',sum,', Произведение = ',pro);
end.