Укажите количество ячеек в диапазоне а)c5: e18 б)s12: u30 г)f2: h19

Question

Информатика: Укажите количество ячеек в диапазоне а)c5: e18 б)s12: u30 г)f2: h19

irinkaff1 · Accepted Answer

Не понравилась реализация, переделал, специально сохранив основу предыдущего решения.

const
legal = ['0'..'9', 'A'..'F', 'a'..'f'];

var
s: string;
i: integer;
IsHex: Boolean;

begin
writeln('Введите строку: ');
readln(s);
i := 1;
IsHex := True;
while (i <= length(s)) and IsHex do
begin
    if not (s[i] in legal) then IsHex := False;
    i := i + 1
end;
if isHex then
    writeln('Введенная строка является шестнадцатиричным числом.')
else
    writeln('Введенная строка не является шестнадцатиричным числом.');
end.

Тестовое решение:

Введите строку:
58bfa
Введенная строка является шестнадцатиричным числом.
Введите строку:
1054Acg
Введенная строка не является шестнадцатиричным числом.

MOGZ ответил