Помогите решить в Pascal! Часы показывают H часов M минут S секунд.Напишите программу,...

0 голосов
66 просмотров

Помогите решить в Pascal!
Часы показывают H часов M минут S секунд.Напишите программу, которая определяет показания часов через одну секунду.
Помогите, пожалуйста!


Информатика (90 баллов) | 66 просмотров
0

Ну помогите плиз!

Дан 1 ответ
0 голосов
Правильный ответ

Uses system;
var time:DateTime;
s,h,m,k:real;
begin;
readln(h);
readln(m);
readln(s);
time:=time.AddSeconds(s);
time:=time.AddMinutes(m);
time:=time.AddHours(h);
readln(k);
time:=time.AddSeconds(k);
writeln(time.Hour,':',time.Minute,':',time.Second);
end.

Супер Кандидат Наук (38.6k баллов)
10,984,878 вопросов
13,471,016 ответов
8,518,553 комментариев
4,909,216 пользователей