Скорость передачи 8000 байт/с разделим на 1024 получим скорость в килобайтах/с
8000/1024 =7.8125 кбайт/с
Теперь размер файла 375 делим на 7.8125
Получаем 48 секунд
Допустим, что a и b входят в этот промежуток.
program test;
var a, b, sum, i: integer;
begin
write('Enter two integers:');
readln(a, b);
sum:=0;
for i:=a to b do
sum:=sum+i;
write('Sum = ', sum);
readln;
end.
A) -3 -8 -5 -7 -6
б) 1 8 5 7 2
в) 3 0 5 0 6
г) S = 3 + 8 + 5 + 7 + 6 = 29
д) P = 3 * 5 = 15
е) K = 3
Первая программа:
program n1;
var a: array[1..10] of integer;
i,k:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
K:=0;
For i:=1 to 10 doIf a [i]> 50 then k:=k+1;
Write ('k=', k);
end.
Вторая программа:
program n1;
var a: array[1..10] of integer;
i,s:integer;
begin
for i:=1 to 10 do a[i]:=random(100);
s:=0;
for i:=1 to 10 doif (a [i]>50) and (a [i]<60) then s:=s+a [i];
write ('s=', s);
end.