СШ
Серега Шугаев
помогите пожалуйста решить задачу по информатике (паскаль).
Составить программу подсчёта часов, минут и секунд в пяти сутках. Количество суток вводится с клавиатуры.
Составить программу подсчёта часов, минут и секунд в пяти сутках. Количество суток вводится с клавиатуры.
program one;
uses crt;
var t, m, s, d: integer;
begin
writeln('Введите кол-во суток');
readln(d);
t:=d*24;
m:=d*24*60;
s:=d*24*3600;
Writeln ('Часов - ',t);
Writeln ('Минут - ',m);
Writeln ('Секунд - ',s);
end.