Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
ЭМИР200720082009
15.11.2021 14:21 •
Информатика
Решить в pascal! часы показывают h часов m минут s секунд.напишите программу, которая определяет показания часов через одну секунду. , !
Показать ответ
Ответ:
СССС69
19.08.2020 08:19
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.
0,0
(0 оценок)
Популярные вопросы: Информатика
Пофиг11
25.10.2021 06:29
разгодать головоломку....
ddiana004
31.07.2020 23:49
Кроссворд Разгадай кроссворд и в выделенных клетках получится ключевое слово: Paint – это графический... 1. Инструмент для разбрызгивания краски (находится в категории...
AzamatAmangaliev1
29.03.2021 00:06
Решите информатику: 1) Var a, b, c: integer; Begin a:=63; b:=237; c:= 35; While (a+c) Begin a:=a+6; c:=c+4; b:=b-10; End. Определи чему равна переменная b. 2) Var...
vikacat12345
01.04.2021 01:43
На вход программы, фрагмент которой приведённой ниже, поданы числа 10 и 15. read x, y; if x y then begin x:=x – y; y:=x+y end else begin y:=y – x; x:=x - y end; write...
reor1878p02hjw
23.05.2023 20:56
В кодировке Unicode на каждый символ отводится два байта. Определи информационный объём текста из 47 символов в этой кодировке...
Dillzy
23.05.2023 21:48
Укажи минимальный объём памяти (в битах), достаточный для хранения любого растрового изображения размером 49×49 пикселя, если известно, что в изображении используется...
Neznayka56000
23.05.2023 21:48
решить задачу python Вариант 5 119 Расписание электричек хранится в текстовом файле на диске. Каждая запись содержит название пункта назначения, пометки типа «СВ»,...
papa63428
15.02.2022 22:02
Чому дорівнює значення логічного виразу х =10 якщо х=10...
даша55516
28.08.2021 08:28
Задан массив ZXC [1..250]. Найти сумму случайных 7 чисел....
plaksienko04p085t4
05.08.2021 14:17
Запиши верный ответ, если дан алгоритм: a1:=1/(11x)a2:=a1/xa3:=a2/xa4:=a3/xy:=a1+a4...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
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.