Задача 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.

​

Ответ:

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.