41943040 бит= байт= кбайт=мбайт сколько?

41943040бит=5242880,5байт=5120,00049кбайт=5мбайт

1байт=8 бит

41943040/8=5242880

1кбайт=1024 байт

5242880/1024=5120 кбайт

1 мбайт=1024 кбайт

5120/1024=5мбайт

Cvar   f: text;   k: integer;   s, p: longint;   i: integer; begin   assign(f, 'output.dat');   rewrite(f);   writeln('вводите данные, окончание число 7777');   repeat       read(k);       if k< > 7777 then writeln(f,k)       until k=7777;   close(f);   reset(f);   s : = 0;   p : = 1;   writeln;   while not eof(f) do   begin       readln(f, k);       write(k: 4);       s : = s + k;       if k < > 0 then p : = p * k   end;   close(f);   writeln;   writeln('сумма= ', s, ', произведение= ', p) end. вводите данные, окончание число 7777 3 6 -4 6 2 -3 -4 2 6 0 5 -1 7777     3    6  -4    6    2  -3  -4    2    6    0    5  -1 сумма= 18, произведение= 622080

Uses crt; var f: text;     i,x,sm,n: integer;       pr: longint; begin randomize; clrscr; pr: =1; assign(f,'f.txt'); rewrite(f); writeln('введите число заполнений (например 6, в файле будет шесть натуральных чисел) ? '); readln(n); for i: =1 to n do beginwrite(i,') '); readln(x); writeln(f,x); end; close(f); reset(f); while not eof(f) dobeginread(f,x); sm: =sm+x; if x < > 0 then pr: =pr*x; end; if n < > 0thenbeginwriteln; writeln('сумма всех чисел = ',sm); writeln('произведение всех чисел = ',pr); end else writeln('файл пустой.'); readkey; close(f); end.