Вpascal написать программу, которая преобразует введенное с клавиатуры двухразрядное шестнадцатеричное число в десятичное.
279
347
Ответы на вопрос:
// 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
10 см = 3,937007874015748 дюйма 20 см = 7,874015748031496 дюйма 10*20 = 200 см^2 = 31,0001 дюйма^2 400*3,937007874015748 = 1574.80314961 точек по горизонтали 800*7,874015748031496 = 6299.21259843 точек по вертикали всего 1574 * 6299 = 9914626 точек 9914626*2=19829252 бит = 2478656,5 байт = 2420 кбайт = 2,36 мбайт
Популярно: Информатика
-
uciviyciy02.05.2020 08:45
-
врошдщ22.03.2023 22:58
-
krasota3319.10.2020 14:06
-
Sivcova94225.02.2022 03:34
-
гуманитарий001324.11.2020 03:26
-
bryadovasg03.02.2022 15:15
-
Ернур15040004.11.2021 01:09
-
Испан119.07.2020 01:00
-
RedHamster07.05.2022 03:11
-
karina569858611.11.2021 15:07