Ввести строку, проверить, является ли она шестнадцатеричным числом

@masimka001 · Регистрация: 20.03.2012

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

Ввести строку, проверить, является ли она шестнадцатеричным числом.

@Черный ворон · 30.05.2012, 10:10

Pascal

var str:string;
i:integer;
begin
writeln ('input string:');
readln(str);
for i:=1 to length(str) do
    begin
    if (ord(str[i])<48) then begin writeln ('not a number'); halt; end;
    if (ord(str[i])<57) then continue;
    if ((ord(str[i])>64) and (ord(str[i])<71)) then continue;
    if ((ord(str[i])>96) and (ord(str[i])<103)) then continue else
        begin
        writeln ('not a hex number');
        halt;
        end;
    end;
writeln ('it is hex number');
end.

@masimka001 0 / 0 / 0 Регистрация: 20.03.2012 Сообщений: 25
		1
	Ввести строку, проверить, является ли она шестнадцатеричным числом 30.05.2012, 09:33. Показов 1112. Ответов 1 Метки нет (Все метки) Ввести строку, проверить, является ли она шестнадцатеричным числом. 0

	30.05.2012, 10:10

Опции темы

Ввести строку, проверить, является ли она шестнадцатеричным числом

Решение