Файл размером 9 кбайт передаётся через некоторое соединение со скоростью 1536 бит в секунду. определите размер файла (в байтах), который можно передать за то же время через другое соединение со скоростью 1024 бит всекунду. в ответе укажите одно число — размер файла в байтах. единицы измерения писать не нужно.

9 кбатй = 73728 бит

73728/1536=48сек

1024*48=49152бит=6164 байт ( 1 байт = 8 бит)

Var a,t: string; b: array[1..100]of string; j,i,k,n: integer; begin writeln('vvedite predlojenie'); readln(a); a: =' '+a; for i: =1 to length(a) do if a[i]=' 'then inc(k) else b[k]: =b[k]+a[i]; writeln('slova s odinakovymi 1 i posledney bukvoy'); for i: =1 to k do begin t: =b[i]; if t[1]=t[length(t)] then write(t,' '); end; writeln; writeln ('slova s 3 e'); for i: =1 to k do begin n: =0; t: =b[i]; for j: =1 to length(t) do if t[j]='e' then inc(n); if n=3 then write (t,' '); end; writeln; writeln('slova s bukvoy o'); for i: =1 to k do begin n: =0; t: =b[i]; for j: =1 to length(t) do if t[j]='o' then n: =1; if n=1 then write (t,' '); end; end.

#include < stdio.h>   int main() {     file* in = fopen("input.txt", "r");     char s[100], b = 1, i = 0;     short c;     do {         c = getc(in);         if (c > = '0' & & c < = '9') {             if ((b = ! b) & & /*             */ (c = getc(in)) == ' ' || c == '\t' || c == '\r' || c == '\n' || c == eof) {                 while (c ! = '\n' & & c ! = eof)                     c = getc(in);                 i = 0;             }         } else if (c == '\n') {             for (b = 0; b < i; b++)                 putchar(s[b]);             putchar(c);             putchar('\n');             i = 0;             b = 1;         } else {             s[i++] = c;             b = 1;         }     } while (c ! = eof);     fclose(in);