Нужно написать рабочий код для задачи в паскале.
Приложения:
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.2, сборка 1362 от 14.12.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите 17-ричное число с последующей точкой:');
var p:=Pos('.',s);
if p=0 then Writeln('точка не найдена')
else begin
s:=Copy(s,1,p-1).ToUpper;
if (s.All(c->c in ['0'..'9','A'..'G'])) then
// написано корректно, проверем на нечет
if s.Select(c->c<='9'?c.ToDigit:Ord(c)-Ord('A')+10).Sum.IsOdd
then Writeln('Yes')
else Writeln('No')
else Writeln('No')
end;
end.
Пример
Введите 17-ричное число с последующей точкой: 015C45Ef9a.xyz
Yes
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('Введите 17-ричное число с последующей точкой:');
var p:=Pos('.',s);
if p=0 then Writeln('точка не найдена')
else begin
s:=Copy(s,1,p-1).ToUpper;
if (s.All(c->c in ['0'..'9','A'..'G'])) then
// написано корректно, проверем на нечет
if s.Select(c->c<='9'?c.ToDigit:Ord(c)-Ord('A')+10).Sum.IsOdd
then Writeln('Yes')
else Writeln('No')
else Writeln('No')
end;
end.
Пример
Введите 17-ричное число с последующей точкой: 015C45Ef9a.xyz
Yes
Ответил Аноним
0
Нам же не сайт надо, а найти способ определения нечетности. Последний, похоже, подходит
Ответил Аноним
0
Да написать не проблема. Вы поспешили влепить "нарушение2, теперь надо ждать, пока модераторы пришлют задачу на исправление
Ответил Аноним
0
В таком состоянии править код невозможно
Ответил nikitok22
0
Завтра по идее должны исправить.
Ответил Аноним
0
Нет, сегодня дадут. Я уде попросил))
Новые вопросы