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

Question

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

Answer 1

Ответ:

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.

Comments

А вы не чего не заделали

---

сделали*

---

не понял?

---

Вы не решили задачу.