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

213

281

Посмотреть ответы 2

Ответы на вопрос:

цукенг7ш8

Информатика

4,8(66 оценок)

// 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.