Написать программу для pascal abc
С начала суток прошло N секунд (целое). Найти кол-во полных часов, прошедших с начала суток.
С начала суток прошло N секунд (целое). Найти кол-во полных часов, прошедших с начала суток.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
program pr1;
var s,ch:integer;
begin
readln(s);
ch:=s div 3600;
writeln(ch,' час(ов)');
end.