1. вычислите количество часов и минут в n сутках. program 1; uses crt; var n,nh,nm,ns : integer; beginwrite (' введите количество суток: '); readln (n); nh: =n*24; {в сутках 24 часа} nm: =nh*60; (1 час=60 минут) writeln (n, суток =' , nh, 'часов=', nm, 'минут ='); end.
program 1;
uses crt;
var p,s,h,m,sc:integer;
begin
write('Количество суток = ');
read(p);
h:=p*24;
m:=h*60;
sc:=m*60;
writeln('Секунд = ' ,sc);
writeln('Минут = ' ,m);
write('Часов = ' ,h)
end.