На вход программке подаётся последовательность знаков, кончающаяся точкой (точка
На вход программе подаётся последовательность знаков, кончающаяся точкой (точка признак конца и в последовательность не заходит). Вывести слово YES, если введённая последовательность является правильной записью нечётного числа в пятнадцатеричной системе счисления, и NO в неприятном случае.
Задать свой вопрос1 ответ
Nikolaj Gestautas
Var
s:string;
i:integer;
r:boolean;
d,d1:set of char;
begin
d:=['0'..'9','А','B'..'E'];
d1:=['1','3','5','7','9','B','D'];
Write('Введите строчку: '); Readln(s);
r:=True;
for i:=1 to Length(s) do begin
if s[i]='.' then break;
if not (s[i] in d) then begin r:=False; break end
end;
if r then r:=(s[i-1] in d1);
if r then Writeln('YES')
else Writeln('NO')
end.
s:string;
i:integer;
r:boolean;
d,d1:set of char;
begin
d:=['0'..'9','А','B'..'E'];
d1:=['1','3','5','7','9','B','D'];
Write('Введите строчку: '); Readln(s);
r:=True;
for i:=1 to Length(s) do begin
if s[i]='.' then break;
if not (s[i] in d) then begin r:=False; break end
end;
if r then r:=(s[i-1] in d1);
if r then Writeln('YES')
else Writeln('NO')
end.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов