Помогите пожалуйста!!! Очень нужно!!!(PASCAL)

Створити програму, яка виводить тип орбіти космічного корабля при різних швидкостях його руху:до 7,8 км/с - корабель впаде на землю;до 11,2 км/с - корабль стане спутником Землі; до 16,4 км/с – корабль стане супутником Сонця; 16,4 км,с – корабль покине межі Сонячної Системи.

Заранее спасибо!!))

2

Ответы и объяснения

2013-02-18T17:01:30+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.

var v:real;
Begin
    read(v);
    if (v<7.8) then writeln("корабель впаде на землю")
    else if (v<11.2) then writeln("корабль стане спутником Землі")
    else if (v<16.4) then writeln("корабль стане супутником Сонця")
    else writeln("корабль покине межі Сонячної Системи");
End.

2013-02-18T17:02:36+04:00

var
v: real;

begin
readln(v);
if v < 7.8 then writeln('qorabel vpade na zemliu')
else if v < 11.2 then writeln('qorabl stane sputneyqom Zemlі')
else if v < 16.4 then writeln('qorabl stane suputneyqom Sontcia')
else writeln('qorabl poqine mezhі Soniachnoi Sistemi');
end.