Файл размером 9 кбайт передается через некоторое соединение со скоростью 1024 бит в секунду. определите на сколько секунд быстрее можно передать этот же файл через другое соединение сос коростью 2048 бит в секунду. в ответе укажите одно число - количество секунд.

9кб = 9 * 8* 1024 бит = 73 728 бит 73 728 / 1024 - 73 728 / 2048 = 73 728 (1/1024-1/2048) = 73 728 / 2048 = 36 сек

я вот тоже вышел порешать =).

var p: array [1..1000] of record

slovo: string;

k: integer;

end;

n,i,j,max: integer;

c: char;

a: array [97..122] of integer;

begin

max: =0;

readln(n);

for i: =1 to n do

begin

p[i].slovo: ='';

repeat

read(c);

p[i].slovo: =p[i].slovo+c

until c=' ';

readln(p[i].k);

for j: =1 to length(p[i].slovo) do

if (ord(p[i].slovo[j])> =97) and (ord(p[i].slovo[j])< =122) then

a[ord(p[i].slovo[j])]: =a[ord(p[i].slovo[j])]+p[i].k;

end;

for j: =97 to 122 do

if a[j]> max then

max: =a[j];

write(max);

end.

вот в 6 программа выводит все числа кроме 1 и самого числа #1

x=int(

s=0

while x! =0:

x=int(

s+=1

print(s)

#2

x=int(

s=0

while x! =0:

x=int(

if x==3:

  s+=1

print(s)

#3

x=1

s=-1

s1=0

while x! =0:

x=int(

if (x%2)==0:

  s+=1

else:

  s1+=1

print('четные-',s,'\n','нечетные-',s1)

#4

x=1

s=-1

s1=0

while x! =0:

x=int(

if (x%2)==0:

  s+=x

else:

  s1+=x

print('четные sum-',s,'\n','sum нечетные-',s1)

#5

s=0

x=int(

while s< =x:

y=int(

s+=y

if s< =x:

  break

#6

x=int(

t=x-1

while t> 1:

if (x%t)==0:

  print(x/t)

  t-=1

else:

  t-=1