Предмет: Информатика,
автор: паоло
На вход программе подаётся последовательность символов, заканчивающаяся точкой (точка – признак конца и в последовательность не входит). Вывести слово YES, если введённая последовательность является правильной записью нечётного числа в пятнадцатеричной системе счисления, и NO в противном случае.
Ответы
Автор ответа:
0
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.
Похожие вопросы
Предмет: Английский язык,
автор: Аноним
Предмет: Русский язык,
автор: isadamir2008
Предмет: Литература,
автор: nikitafarafontov
Предмет: Биология,
автор: TheKateCat71
Предмет: Химия,
автор: 1996kotvitskaya2014