говори слова и через каждый слог вставляй пирожки, Сразу говорю слова звезда не говори
uses Crt;
const n=10;
Type Mas=array [1..n] of integer;
var P, M: Mas;
i: integer;
begin
ClrScr;
for i:=1 to n do
P[i]:=10+random(20);
for i:= 1 to n do
Write (P[i]:4);
WriteLn; WriteLn;
for i:=1 to n do
if (i mod 2 = 0) then M[i]:=i*P[i] else M[i]:=-1*P[i];
for i:=1 to n do
Write (M[i]:4);
ReadLn;
end.
Есть сомнения, что все единицы измерения указаны точно.
Но если все верно, тогда:
1 К/бит = 1000 бит
1 Байт = 8 бит
1 Кбайт = 1024 Байт
32 Кбит/с * 15 с = 480 Кбит *1000 = 480000 бит / 8 = 60000 Байт - размер текстового файла
8 байт/символ * 48 симв/страницу * х страниц = 60000 байт
х = 60000/48/8 = 156,25 страниц содержал переданный текст