Переведите переведите из одной единицы измерения информации в другой: 1) 64 бит = ... байт 2) 28 Кбайт - id1509782820220116 от good129 16.01.2022 16:58

Question

Информатика: Переведите переведите из одной единицы измерения информации в другой: 1) 64 бит = ... байт 2) 28 Кбайт = ... Мбайт 3) 5 Кбайт = ...байт 6) 15 байт = ... бит 7) 28 Мбайт = ... байт 8) 6 Гбайт = Мбайт кто сделает на того подпишусь и поставлю ❤️​

good129 · Accepted Answer

Var f:file of integer;
a,i,k,n:integer;
begin
randomize;
assign(f,'file');
rewrite(f);
repeat
write('Четное количество элементов: ');
readln(n);
until(n>1) and (n mod 2=0);
for i:=1 to n do
begin
a:=random(100);
write(f,a);
end;
writeln('Содержание исходного файла:');
reset(f);
while not eof(f) do
begin
read(f,a);
write(a,' ');
end;
close(f);
writeln;
reset(f);
seek(f,filesize(f)div 2);
truncate(f);
writeln('Содержание измененного файла:');
reset(f);
while not eof(f) do
begin
read(f,a);
write(a,' ');
end;
close(f);
readln
end.

MOGZ ответил