Паскаль. Написать программу электронных часов. Вводятся минуты и секунды, и часы начиная...

Question

Паскаль. Написать программу электронных часов. Вводятся минуты и секунды, и часы начиная отсчет с них, начинают работать. То есть должен быть такой вид 23:44 И как дойдёт до 59, начинается по новой

Comments

имеется в виду, что когда доходят секунды до 59 то минута увеличивается на одну, а когда минуты доходят до 59 , то возвращается к единице

---

Да. Помогите, пожалуйста

---

То есть для Вас баллы важнее добрых поступков?

---

Я не совершаю добрых поступков тут из-за того, что мой уровень знаний просто не позволит мне этого сделать, а ошибаться или писать ерунду у меня желания нет. Вопрос набирала быстро и не обратила внимания на баллы, они стояли по умолчанию. Если для Вас предложенные баллы малы, то проходите мимо, раз не в силах помочь

Answer 1

// PascalABC.NET 3.2, сборка 1338 от 16.11.2016
uses GraphABC;
begin
  var s:=ReadlnString('Укажите время MM:CC');
  var m:=s.Left(2).ToInteger;
  var c:=s.Right(2).ToInteger;
  var i:=m;
  var j:=c;
  Font.Size:=60;
  Font.Color:=clBlue;
  repeat
    while i<60 do begin<br>      while j<60 do begin<br>        if i<10 then s:='0'+i+':' else s:=i+':';<br>        if j<10 then s+='0'+j else s+=j;<br>        FillRect(50,100,350,400);
        DrawTextCentered(50,100,350,400,s);
        Inc(j);
        Sleep(1000)
        end;
      j:=0;
      Writeln;
      Inc(i)
      end;
    i:=0
  until False
end.

Comments

Спасибо огромное