Предмет: Информатика, автор: anka2275мм

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

Приложения:

Ответы

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