Версия для печати темы

Автор: namro 26.03.2017 16:54

Помогите решить задачку:
Заданный текст содержит только цифры и буквы. Определить, обладает ли он следующим свойством. Сумма числовых значений цифр, содержащихся в тексте, кратна 5.

Автор: Федосеев Павел 26.03.2017 20:54

program DigitsInText;

var
  S: string;
  Sum: integer;
  i: integer;
begin
  S := 'sdkjh794iufjkf983efhfu4ufnf484';
  Sum := 0;
  for i := 1 to length(S) do
    if S[i] in ['0'..'9'] then
      Sum := Sum + Ord(S[i]) - Ord('0');
  writeln('Sum=', Sum);
  if Sum mod 5 = 0 then
    writeln('YES')
  else
    writeln('NO');
end.