4 года назад

Нужно написать программу в паскале! Вывести на экран площадь поверхности земли, объем и плотность Помогите!

1 ответ:

Ty-24 года назад

0 0

Begin;
writeln('Площадь поверхности Земли=510100000 км.^2);
writeln('Объём Земли=1083 млрд. куб. км.');
writeln('Плотность Земли=5,51 г/см^3');
end.

Читайте также

При интернет соединении с максимальной скоростью передачи данных 192 Кбит/с аудиофайл размером 3600Кбайт будет в лучшем случае п

Илья2389

18.75 sek. минимальное время загрузки

0 0

4 года назад

Составьте программу которая выводит на экран надпись "Поздравляю с началом учебного года!"

Lavande [9]

Begin
writeln('Поздравляю с началом учебного года!')
end.

0 0

4 года назад

Хээээлп На Паскале Задана последовательность из N вещественных чисел. Вычислить значение функции : корень N-ой степени из IX1*X

121212121212

Var x,p,rez:real;
 n: integer;
begin
 p:=1;
 write('числа через пробел (завершение ввода - 0): '); read(x);
 while x<>0 do
 begin
 p:=p*abs(x);
 read(x);
 end;
 write('N = '); readln(n);
 rez:=exp((1/n)*ln(p));
 writeln('корень ',N,' -ой степени из ',p,' = ',rez);
end.

0 0

4 года назад

Помогите решить первые 3 задания, пожалуйста!

Айгиза [18]

1.147(10)=2113(4)=93(16)
2.2132(4)=158(10), А6Е=2670(10)
3.ВА12(16)
11110(2)

0 0

4 года назад

Задача D. Приятный сюрприз Саша и Лена живут в противоположных домах. Каждый вечер в каждом из этих домов загорается свет в неко

Etoneon [14]

Здравствуйте, вы являетесь участником олимпиады НТИ. По правилам олимпиады нельзя использовать готовые решения для прохождения на последующие этапы. Т.к. вы нарушили правила, ваш аккаунт блокируется, и вы отстраняетесь от участия в НТИ. Желаем участия в следующем году.

С уважением,

Модераторы НТИ

0 0

4 года назад