1. скорость звездолета 100 км/час. звездолет летит до некоторой звезды, свет от которой до земли идет 14 минут. определить, сколько времени потребуется звездолету, чтобы долететь до данной звезды. решить на паскале. 2.в равнобедренном прямоугольном треугольнике известна высота, опущенная на гипотенузу. найти стороны треугольника. решить в паскале.

1. 

const

lightspd=299792458;

var 

spd,elt: long;

dist,els: extended;

begin

elt : = 840; {время в секундах}

writeln("finding ");

dist: =lightspd * elt;

writeln("founded. it is near ", dist);

writeln("finding starship elapsed ");

spd: =28; {скорость звездолёта в метрах в секунду}

els: =dist/spd;

writeln("starship elapsed time: ", els);

readln;

end.

2. не знаю, тут нужна

program kvadrat;

var i : integer;

begin

for i: = 10 to 100 do

writeln ( i: 2, i*i : 5);

readln;

end. 

290*39*67=757770 - всего символов

для кодирования  757770 символов потребуется   757770 байтов

757770байт < 1,44    мбайт

да, книга поместиться на дискетку