Составьте программу, которая запрашивает цифру от 1 до 3 использует эту цифру в графическом окне.
187
275
Ответы на вопрос:
// pascalabc.net 3.1, сборка 1172 от 19.02.2016 begin var s: =readlnstring('введите двухзначное 16-ричное число'); var mh: array['a'..'f'] of integer: =(10,11,12,13,14,15); if s.length=1 then s: ='0'+s; var c: =s.tochararray; var n: =0; for var i: =0 to 1 do case c[i] of '0'..'9': n: =16*n+strtoint(c[i]); 'a'..'f': n: =16*n+mh[c[i]]; else begin writeln('недопустимый символ: ',c[i]); exit end end; writeln('десятичный эквивалент: ',n) end. тестовое решение: введите двухзначное 16-ричное число 3a десятичный эквивалент: 58
Популярно: Информатика
-
ГолубойРо06.01.2022 05:26
-
refddk18.03.2021 22:38
-
SarJiG2A14.04.2020 20:17
-
Novalniy201819.03.2020 13:52
-
heyguys11206.02.2020 13:27
-
милан6448828.12.2020 11:47
-
миснайс27.08.2020 03:59
-
TheArtemSuper11124.12.2021 14:12
-
neumnaya404424.01.2020 01:05
-
Akimneznaet12306.09.2022 17:28