Ребят! срочно надо! составить программу ** Паскале.С начала суток прошло k минут....

Question

Ребят! срочно надо! составить программу на Паскале.

С начала суток прошло k минут. Определите сколько сейчас часов и минут.

Answer 1

 Program Vrema; {Название программы}
var k,n1,n2:integer; {Записываю переменные, которые буду использовать}
Begin {начало программы}
Writeln('Введите k'); {Прошу, чтобы пользователь ввел количство минут}
readln(k); {Ввод}
n1:= k div 60; {Выделяю количество часов}
n2:=k mod 60; {Выделяю количество минут}
writeln(n1,' часа(ов) ', n2,' минут(ты)'); {Вывожу ответ на экран}
end. {Конец}

(Проверил на Pescal. NET, работает. По вопросам, обращайтесь)