Video filmin həcmi 16 gbayt- dir.Bu filmi köçürmək üçün neçə 700 mb-lıq disk lazimdir
205
449
Ответы на вопрос:
Var s: string; m,pk: real; a: array[1..20] of real; i,k,n: integer; begin write('введите число в системе счисления с основанием [2; 16]: '); readln(s); n: =length(s); for i: =1 to n do begin if s[i] in ['0'..'9'] then a[i]: =ord(s[i])-ord('0') else if s[i] in ['a'..'f'] then a[i]: =ord(s[i])-ord('a')+10 else if s[i] in ['a'..'f'] then a[i]: =ord(s[i])-ord('a')+10 else begin writeln('символ ',s[i],' недопустим! '); exit end end; write('введите основание системы счисления: '); read(k); if (k< 2) or (k> 16) then begin writeln('такое значение недопустимо! '); exit end; m: =a[n]; pk: =k; for i: =n-1 downto 1 do begin m: =m+a[i]*pk; pk: =pk*k end; writeln('десятичный эквивалент введенного числа равен ',m) end. тестовое решение введите число в системе счисления с основанием [2; 16]: 4e32ca введите основание системы счисления: 16 десятичный эквивалент введенного числа равен 5124810
Популярно: Информатика
-
луч1619.08.2021 07:12
-
madi10125.06.2021 13:39
-
LOKI4610.05.2023 17:26
-
natochiyk04.01.2023 10:12
-
tayna73p00m0k05.10.2022 23:23
-
veronikasizonov05.04.2023 04:56
-
иринакодр19.09.2020 04:01
-
yuliaatamanchuk07.10.2022 01:13
-
XMCBVSAJHDBV02.01.2020 13:06
-
LisenokLove200313.10.2020 05:14