информатика 8 класс нужно напечатать на компьютере алгоритм, чтобы затем програм...

August 2022 1 5 Report

информатика 8 класс нужно напечатать на компьютере алгоритм, чтобы затем программа дала ответ ( все на фото ) задача номер "4"

Answers & Comments

Lenofag Program sadas;

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.

1 votes Thanks 1

Answers & Comments

Helpful Links

Helpful Social