В паскале:Идёт k-я секунда суток. Определить который сейчас час (в часах, минутах и секундах). Например, если k=13257=3*3600+40*60+57, то часов - 3, минут
5-9 класс
|
- 40, секунд - 57.
var k,h,m,s:integer;
begin
write('Введите число секунд: ');
readln(k);
h:=k div 3600;
k:=k mod 3600;
m:=k div 60;
s:=k mod 60;
writeln('Часов: ',h);
writeln('Минут: ',m);
writeln('Секунд: ',s);
end.
Другие вопросы из категории
покупателем, выводит на экран сумму причитающейся сдачи,если денег внесено больше.Если сдачи не требуется, программа выводит на экран " Спасибо !".
Читайте также
Определить какое сейчас число и который сейчасчас час( в часах и минутах )
2. Сколько байт информации передается за 10 секунд по линии связи со скоростью 400 бит в секунду?
1) Если а>7, то найти сумму BC, иначе найти разность.
2) Определить квадрат числа, если оно положительное, но если отрицательное - куб.
3) Идет К-ая секунда суток. Напечатать сколько полных часов, минут и секунд прошло к данному моменту.
4) В магазине продается костюмная ткань. Ее цена В рублей за квадратный метр. Напишите программу, которая подсчитает и выведет на экран стоимость куска этой ткани, длиной Х метров и шириной 80 см.
моментов времени. Известно, что второй момент времени наступил не раньше первого. Определите, сколько секунд прошло между двумя моментами времени. Программа на вход получает три целых числа — часы, минуты, секунды, задающие первый момент времени и три целых числа, задающих второй момент времени. Выведите число секунд между этими моментами времени.
ввод:1, 1, 1, 2, 2, 2
вывод: 3661
ввод:1,2,30,1,3,20
вывод: 50
это задача на pascal ABC