РЕШИТЕ ПОЖАЛУСТА В ПАСКАЛЕ 1)Идёт k ая секунда суток.Определить, который сейчас час( в часах минутах секундах) 2)С начала месяца прошло m минут.
5-9 класс
|
Определить какое сейчас число и который сейчасчас час( в часах и минутах )
Чувак, лови первую:
Program Help;
Uses Crt;
Var h, m : Byte;
s : LongInt;
Begin
ClrScr;
Write('Количество секунд: ');
Readln(s);
If s >= 86400 then
Writeln('Количество секунд должно быть меньше, чем 86400!')
Else
Begin
h := s div 3600;
s := s - h * 3600;
m := s div 60;
s := s - m * 60;
Writeln(h, 'ч ', m, 'мин ', s, 'сек');
End;
Readln;
End.
Другие вопросы из категории
Читайте также
- 40, секунд - 57.
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
купить на эти деньги?"
напишите пожалуйста как составить это в паскале) буду благодарна:)
клавиатуры.
2)найти перевертышь трехзначного числа.