Файл размером 4096 байт передаётся через некоторое соединение за 8 секунд.определите время в секундах,за которое можно передать через тоже самое соединение 8 кбайт. распишите все вместе с дано!
Program p; var ch:real; i:integer; begin ch:=65000; For i:= 1993 to 2013 do begin ch:=trunc(ch*1.03); Writeln('Численность населения в году №',i+1,' равна ',ch); end; end.
Для любых данных
Program p; var year,y1:integer; ch:real; i:integer; begin Write('Введите начальный год: '); Readln(year); Write('Введите конечный год: '); Readln(y1); Write('Введите число населения: '); Readln(ch); For i:= year to y1-1 do begin ch:=trunc(ch*1.03); Writeln('Численность населения в году №',i+1,' равна ',ch); end; end.
Const n=20; var a: array[1..20] of integer = ( 20, 9, 24, 12, 23, 24, 21, 17, 1, 15, 25, 8, 21, 2, 6, 4, 12, 16, 8, 13); i,j,k: integer; begin for i:=1 to n-1 do for j:=i+1 to n do if a[j]<a[i] then swap(a[i],a[j]); writeln('отсортированный массив: '); for i:=1 to n do write(a[i],' '); writeln; k:=0; i:=1; j:=2; repeat if a[j]-a[i]>=3 then begin writeln('пара: ',a[i],' ',a[j]); i:=j; inc(k); end; inc(j); until j>n; writeln('количество солдат:k+1); end.
Дано:
m₁= 4096 байт = 4 кбайт
t₁ = 8 сек
m₂= 8 кбайт
Найти: t₂
4 / 8 = 0.5 (кбайт/сек)
8 / 0.5 = 16 (сек)
ответ: За 16 секунд передастся файл с размером 8 кбайт