Регистрация
Айкотик2017
17.03.2022 22:58
Информатика
Есть ответ 👍

выясните Сколько килобайт информации заменяет книга которая 150 страниц по 55 строк а на странице и 50 символов в строке​

164
303
Посмотреть ответы 2

Ответы на вопрос:

ДианаКараханова77
ДианаКараханова77
4,7(23 оценок)

200 но это не точно ок ок

Almas171795
Almas171795
4,7(5 оценок)

Объяснение:

f: File of Integer;

 x,s: Integer;

BEGIN

Assign(f,'1.dat');

Rewrite(f);

For var i:=1 to 10 do

Write(f,Random(100));

Reset(f);

Writeln('Исходный файл:');

While not Eof(f) do

begin

 Read(f,x);

 Write(x,' ');

end;

Writeln;

s:=0;

Writeln('Полученный файл: ');

For var i:=FileSize(f)-1 downto 0 do

begin

 Seek(f,i);

 Read(f,x);

 s:=s+x;

 Write(x,' ');

end;

Writeln;

Writeln('Сумма = ',s);

END.

Популярно: Информатика