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

Vika2471 Vika2471    2   17.05.2019 20:40    1

Ответы
Варвара75639 Варвара75639  11.06.2020 02:02

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.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика