Question

ПАСКАЛЬ, ХЕЛП. 9 КЛАСС Дано 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;
begin
  // Ввод времени запуска ракеты и времени полета
  writeln('Введите часы, минуты и секунды запуска ракеты:');
  readln(hour, min, sec);
  
  writeln('Введите время полета ракеты в секундах:');
  readln(time);

  // Преобразование времени запуска ракеты в секунды
  flightTime := hour * 3600 + min * 60 + sec + time;

  // Рассчитываем часы, минуты и секунды времени полета
  hour := flightTime div 3600;
  flightTime := flightTime mod 3600;
  min := flightTime div 60;
  sec := flightTime mod 60;

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

Этот код сначала запрашивает у пользователя часы, минуты и секунды запуска ракеты, а затем время полета в секундах. Затем он преобразует время запуска ракеты в секунды, добавляет время полета и затем расчитывает часы, минуты и секунды времени полета, выводя их на экран.

Вы можете скопировать этот код и выполнить его в вашей среде разработки Pascal.