ПОЖАЛУЙСТА,СОСТАВЬТЕ ПРОГРАММУ ПАСКАЛЬ ДЛЯ РЕШЕНИЯ ЭТИХ ТРЕХ ЗАДАЧ

спасибо большое))))

третью нашла

Я конечно не мастер Паскаля, но попробую. В паскале не проверяла, недочеты могу быть1) Var s,m:integerbeginwriteln('Введите число секунд');Read(s);(если у вас есть If)If s > 60 then begin  m:= s div 60  - (Находим минуты, беря целое число от деления на 60)  s:= s - (m*60) - (Находим остаток секунд)  writeln(m,' мин.',s,' сек.')  endelse writeln(s,' сек.')end.2) Var s,m,z,m1:integerbeginwriteln('Введите число секунд');Read(s);If s > 60 then begin  m:= s div 60  - (Находим минуты, беря целое число от деления на 60)  s:= s - (m*60) - (Находим остаток секунд)   If m > 60 then begin     z:= m div 60; - (Находим часы)     m1:= m - (z*60); - (Находим остаток минут)     writeln(s,' ч.',m,' мин.',s,' сек.');     end   else writeln(m,' мин.',s,' сек.');else writeln(s,' сек.')А третью лень. Если что проверь в паскале