информатика 8 класс нужно напечатать на компьютере алгоритм, чтобы затем программа дала ответ ( все на фото ) задача номер "4"
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
var sec,chas,min:integer;
begin
readln(sec);
while sec >= 3600 do
begin
chas:= chas + 1;
sec:= sec - 3600;
end;
while sec >= 60 do
begin
min:= min + 1;
sec:= sec - 60;
end;
writeln(chas, ' ', min, ' ', sec);
end.