Question

ДАЮ 21 БАЛЛ!!! ПАСКАЛЬ. ХЕЛП Дано 4 целых числа(hour, min,sec,time). Первые три из них – это время запуска ракеты в часах, минутах и секундах, четвертое определяет время полета в секундах.Найдите время полёта ракеты и выведите на экран. ​

Answer 1

Ответ:

Код написал ниже

Объяснение:

program a;

var hour, min, sec,time: integer;

begin

 write ('Введите часы полёты ракеты: ');

 readln(hour);

 write ('Введите минуты полёта ракеты: ');

 readln(min);

 write ('Введите секунды полёта ракеты: ');

 readln (sec);

 time:= hour*3600 + min*60 + sec;

 writeln ('Ракета летела ', time, ' секунд');

end.

Просим ввести все данные, потом переводим часы и минуты в секунды, складуем полученные результаты с секундами. и полученное число выводим на экран

Answer 2

Для решения данной задачи вам потребуется выполнить несколько шагов. Вот пример кода на языке Pascal, который поможет вам решить задачу:

pascalCopy code
program RocketFlightTime;

var
  hour, min, sec, time, flightTime: integer;
  flightHour, flightMin, flightSec: integer;

begin
  writeln('Введите время запуска ракеты (часы, минуты, секунды): ');
  readln(hour, min, sec);

  writeln('Введите время полета в секундах: ');
  readln(time);

  flightTime := hour * 3600 + min * 60 + sec + time;

  flightHour := flightTime div 3600;
  flightMin := (flightTime mod 3600) div 60;
  flightSec := (flightTime mod 3600) mod 60;

  writeln('Время полета ракеты: ', flightHour, ' часов, ', flightMin, ' минут, ', flightSec, ' секунд');
end.

Обратите внимание, что в приведенном коде мы предполагаем, что пользователь будет вводить значения для hour, min, sec и time. Результатом будет время полета ракеты, которое выводится на экран в часах, минутах и секундах.