program program1; var a,b:integer; begin writeln('Введите кол-во секунд: '); read(a); b:=a div 3600; write (a, ' Секунд, это ', b, ' часов.') end.

crissimakova20    1   21.10.2020 13:23    71