Begin;
writeln('Площадь поверхности Земли=<span>510100000 км.^2);
writeln('Объём Земли=</span><span>1083 млрд. куб. км.');
writeln('Плотность Земли=</span><span>5,51 г/см^3');
end.</span>
Var x1, y1, x2, y2: real;
c:char;
begin
repeat
read(c);
until c='>';
read(c);
readln(x1,y1);
repeat
read(c);
until c='>';
read(c);
readln(x2,y2);
x1 := x1*x1 + y1*y1 - x2*x2 - y2*y2;
if (x1 > 0) then
writeln('2-я точка ближе')
else if (x1 < 0) then
writeln('1-я точка ближе')
else
writeln('Точки на одинаковом расстоянии')
end.
1) 512=2^9 --> 9 бит для кодировки одного символа
2) 9*480*60*70=18 144 000 бита =2 268 000 байта ≈2215 Кбайта≈3 Мбайта
А) гнездо
б) температура
в) ковёр
1. Остановиться на тротуаре перед светофором.
2. Посмотреть на светофор.
3. Если горит красный или желтый свет, то ждать, пока на светофоре не загорится зеленый.
4. Если горит зеленый свет, перейти дорогу до тротуара противоположной стороны улицы.
5. Стоп.