Код написал ниже
Объяснение:
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.
Просим ввести все данные, потом переводим часы и минуты в секунды, складуем полученные результаты с секундами. и полученное число выводим на экран
Код написал ниже
Объяснение:
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.
Просим ввести все данные, потом переводим часы и минуты в секунды, складуем полученные результаты с секундами. и полученное число выводим на экран