Определить, может ли символ являться цифрой в системах счисления с основаниями 2, 8, 10

@ULstyle · Регистрация: 09.06.2014

Author24 — интернет-сервис помощи студентам

Задан символ. Определить, может ли он являться цифрой в системах
счисления с основаниями 2, 8, 10, 16. (Решить с помощью процедуры)

@Puporev · 21.12.2015, 11:16

Pascal

uses crt;
procedure cifra(ch:char;ss:byte);
var f:boolean;
begin
case ss of
2:f:=ch in ['0','1'];
8:f:=ch in ['0'..'7'];
10:f:=ch in ['0'..'9'];
16:f:=ch in ['0'..'9','A'..'F','a'..'f'];
end;
if f then write('Символ ',ch,' является цифрой в СС ',ss)
else write('Символ ',ch,' не является цифрой в СС ',ss)
end;
var ch:char;
    ss:byte;
begin
write('Введите символ ch=');
readln(ch);
repeat
write('Введите систему счисления 2,8,10,16 ss=');
readln(ss);
until ss in [2,8,10,16];
cifra(ch,ss);
end.

@ULstyle 1 / 1 / 0 Регистрация: 09.06.2014 Сообщений: 26
		1
	Определить, может ли символ являться цифрой в системах счисления с основаниями 2, 8, 10 21.12.2015, 10:16. Показов 1359. Ответов 1 Метки нет (Все метки) Задан символ. Определить, может ли он являться цифрой в системах счисления с основаниями 2, 8, 10, 16. (Решить с помощью процедуры) 0

	21.12.2015, 11:16

Определить, может ли символ являться цифрой в системах счисления с основаниями 2, 8, 10

Решение