Записать условие, которое является истинным,когда каждое из чисел X, K, Z отрицательное(начертите блок схему)
251
420
Ответы на вопрос:
// 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.
Популярно: Информатика
-
NeoBest129.06.2021 11:12
-
Enotlk133705.10.2020 09:11
-
evamayninger2013.10.2021 08:48
-
miwakina22.01.2022 07:17
-
Настяданеона18.07.2021 14:29
-
цыувкаерн12.09.2022 14:58
-
Hdjfhdhe7374729.01.2021 18:41
-
Sem000113.05.2022 02:21
-
урган119.03.2023 08:53
-
николь4315.11.2022 06:14