3. Писатель написал книгу и нанял стенографиста, чтобы ввести ее в компьютер. Оказалось, что книга занимает 1000 страниц машинного текста. Страница вмещает 38 строк, а строка состоит из 48 символов. Каким получился объем информации, излагаемой в книге? Результат представить в мегабайтах (если результат будет дробным, то округлить до десятых).

ну можно, если на паскале, в одной прописать асижн (вызов файла), реврайт, записать туда переменные. а в другой программе прописать чтение переменной из файла, если ты об а так например импорт-экспорт есть во многих прогах (оффис вот

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.

закодированный текст: byck is my dog.

var

x: real;

begin

readln(x);

writeln(round(x));

end.