Скорость передачи данных через adsl-соединение 120 бит/с.какой объем информации скачается за 5 минут(кб)?

Узнаем в битах: 120 бит/с * 5*60= 36000, узнаем в байтах: 36000/8 =  4500 байт.  узнаем в кбайтах: 4500 / 1024 =  4.39 кб

Var k,n,i,s: integer; beginreadln(k,n); for i: =0 to n do  s: =s+k+i; writeln(s)end.var k,n,i,s: integer; beginreadln(k,n); for i: =0 to n do  s: =s+k+i; writeln(s/(n+1))end.var r,n,i,p: integer; beginreadln(r,n); p: =1; for i: =0 to r do  p: =p*(n+i); writeln(p)end.var r,i,p,x: integer; beginreadln(r); x: =1; for i: =1 to r do  begin  x: =x*i;   p: =p+x;   end; writeln(p)end.var r,i,p,x: integer; beginreadln(r); p: =1; for i: =1 to r do  begin  x: =x+i;   p: =p*x;   end; writeln(p)end.var m,n,t,i: integer; beginreadln(t); writeln('n': 3,'m': 5); for i: =1 to (t div 2) do  begin  n: =i*2;   m: =sqr(n)-n;   writeln(n: 3,m: 5);   end; end.var    y,m,n,i: integer;     x: real; beginreadln(n,m); writeln('y': 3,'x': 10); for i: =1 to m do  begin  y: =n*i;   x: =sqr(y)*(sqr(y)-y)/y;   writeln(y: 3,x: 10);   end; end.

Function avg(a,b: real): real; begin   avg: =(a+b)/2 end; procedure avg2(a,b: real; var c: real); begin   c: =(a+b)/2 end; var   a,b,c: real; begin   write('введите два произвольных числа: '); readln(a,b);   writeln('среднее значение, найденное функцией: ',avg(a,b));   avg2(a,b,c);   writeln('среднее значение, найденное процедурой: ',c) end. тестовое решение: введите два произвольных числа: 11.7 14.519 среднее значение, найденное функцией: 13.1095 среднее значение, найденное процедурой: 13.1095