Информатика, опубликовано 2018-08-22 19:07:33 by Гость

помогите с информатикой,срочно...:Написать процедуру,которая определяет по времени в секундах содержащиеся в нём количество часов, минут, секунд... пожалуйста..

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

var t,a,b,c:integer;
procedure irati(T:integer; var H, M, S:integer);
begin
H:=T div 3600;
M:=(T mod 3600) div 60;
S:=(T mod 3600) mod 60;
end;
begin
read(t);
irati(t,a,b,c);
Writeln(Chasov ,a, Minut ,b, Secund ,c);
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.