Опубликовано 22.08.2017 по предмету Информатика от Гость >> <<

Для заданного количества суток (tfh) требуется определить количество часов (h), минут (m) и секунд (с)

Ответ оставил Гость

Var
tfh,h,m,c:integer;
begin
writeln(Введите количество суток);
readln(tfh);
writeln(В ,tfh, сутках:);
h:=tfh*24;
writeln(h, часов);
m:=h*60;
writeln(m, минут);
c:=m*60;
writeln(c, секунд);
end.