<em>условимся, что 1 символ = 1 байту (в кодировке Windows)</em>
тогда на 1 странице: 40*60*1 = 2400 байт информации
чтобы найти количество страниц: 465,6*1024*1024*1024/2400 = 208305913 страниц <em>(округлили в меньшую сторону, так как больше влезти не может)</em>
высотат стопки: 208305913/100 = 2083059 см = 20 км 830 м 59 см
МКС...................это ответ
P.S.:
вдруг если училка спросит что такое
МКС -это международная космическая станция (15 стран)
Результат: ТМРРО
Const abc = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯА';
Var s : String;
Function Alg(ss : String) : String;
Var i : Integer;
Begin
If Odd(Length(ss)) then Insert(ss[(Length(ss) div 2)+1],ss,(Length(ss) div 2)+1) else ss:='С'+ss;
For i:=1 to Length(ss) do If Pos(ss[i],abc)>0 then ss[i]:=abc[Pos(ss[i],abc)+1];
Alg:=ss;
end;
Begin
{ Readln(s);
Writeln(Alg(s)); }
Writeln(Alg(Alg('КОМ')));
end.
Var
x, y, z : real;
begin
read (x, y, z);
if (x > 0) then x := sqr (x);
if (y > 0) then y := sqr (y);
if (z > 0) then z := sqr (z);
write (x, ' ', y, ' ', z);
end.