Задачка 1. Вычислите количество часов и минут в N сутках. program

Задачка 1. Вычислите количество часов и минут в N сутках.



program 1;

uses crt;

var n,nh,nm,ns : integer;

begin

write (' Введите количество суток: ');

readln (n);

nh:=n*24; В сутках 24 часа

nm:=nh*60; (1 час=60 минут)

writeln (n, суток =' , nh, 'часов=', nm, 'минут =');

end.