Пк запрашивает название и радиусы орбит двух планет (в миллионах км) и скорости движения орбит (в миллионах км в сутки). вычислить продолжительность года на планетах (длина орбит/скорость). результаты должны иметь вид: продолжительность года на планете суток; продолжительность года на планете суток; составить программу в pascal.

var

r1,r2,v1,v2: integer;

name1,name2: string;

begin

writeln ('введите название двух планет');

readln (name1,name2);

writeln ('введите радиусы двух планет');

readln (r1,r2);

writeln ('введите скорости движения орбит');

readln (v1,v2);

writeln ('продолжительность года на планате ',name1,'=', r1/v1);

writeln  ('продолжительность года на планате ',name2,'=', r2/v2);

end.

program planet;

var r1, r2, l1, l2, v1, v2, time1, time2 : real; c, b : string;

begin write('планета1-'); readln(b); write('планета2-'); readln(c); write('r1='); readln(r1); write('r2='); readln(r2); write('v1='); readln(v1); write('v2='); readln(v2); l1: =2*pi*r1; l2: =2*pi*r2; time1: =l1/v1; time2: =l2/v2; writeln('продолжительность года на пленете ',b,'= ', time1: 0: 2, ' суток'); writeln('продолжительность года на пленете ',c,'= ', time2: 0: 2, ' суток'); end.

как-то так)

Каждый символ кодируется 16 битами, то есть, 2 байтами.

У нас в сообщении 21 символ.

Найдём информационный объём.

2 * 21 = 42 байта

ответ: 42 байта