Паскаль. Написать программу электронных часов. Вводятся минуты и секунды, и часы н
Паскаль. Написать программу электронных часов. Вводятся минуты и секунды, и часы начиная отсчет с них, начинают работать. То есть должен быть такой вид 23:44 И как дойдёт до 59, начинается по новой
Гость
Ответ(ы) на вопрос:
Гость // 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
while j<60 do begin
if i<10 then s:='0'+i+':' else s:=i+':';
if j<10 then s+='0'+j else s+=j;
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.
Не нашли ответ?
Похожие вопросы