Предмет: Информатика,
автор: anka2275мм
ПОЖАЛУЙСТА,СОСТАВЬТЕ ПРОГРАММУ ПАСКАЛЬ ДЛЯ РЕШЕНИЯ ЭТИХ ТРЕХ ЗАДАЧ
Приложения:

Ответы
Автор ответа:
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,' сек.')
А третью лень. Если что проверь в паскале
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,' сек.')
А третью лень. Если что проверь в паскале
Автор ответа:
0
спасибо большое))))
Автор ответа:
0
третью нашла
Похожие вопросы
Предмет: Английский язык,
автор: valeria7485
Предмет: Английский язык,
автор: valeria7485
Предмет: Математика,
автор: lubaolijnik017
Предмет: Математика,
автор: doniss
Предмет: Алгебра,
автор: DALYu7lchi9cky