Question

(Pascal) Нужно составить программу подсчета количества часов, минут и секунд в данном числе суток. Число суток ввести с клавиатуры.

Неправильно считает секунды, в чём ошибка?

var
s,m,h,days: integer;
begin

writeln('Введите кол-во дней');
read(days);
s:=86400;
m:=s div 60;
h:=m div 60;

for var i:=1 to days do
s:=s*days;
m:=m*days;
h:=h*days;

writeln(s,' — секунд в ',days,' днях');
writeln(m,' — минут в ',days,' днях');
writeln(h,' — часов в ',days,' днях');
end.

Answer 1

Секунды, нужно считать также как минуты и часы без цикла.

Закомментируйте строчку с циклом for var i =1 to days do...