Паскаль. Проверить наличие цифр в записи числа

[raven4eg]

Паскаль. Проверить наличие цифр в записи числа

Разработать алгоритм решения в соответствии с заданием.
Составить программу решения задачи.
Подготовить тест для проверки программы.

Дано натуральное число n. Проверить, есть ли в записи числа цифры 4 и 5.

 

[Vladimir_S]

Разработать алгоритм решения в соответствии с заданием.
Составить программу решения задачи.
Подготовить тест для проверки программы.

Дано натуральное число n. Проверить, есть ли в записи числа цифры 4 и 5.

Например, так:

Var
 S:String;
 i:Byte;
 b:Boolean;
Begin
 Writeln('Enter the number:');
 Readln(S);
 i:=0;
 b:=FALSE;
 Repeat
  Inc(i);
  b:=((S[i]='4') or (S[i]='5'));
 Until b or (i=Length(S));
 Writeln(b);
 Readln
End.

 

[raven4eg]

Спасибо большое) !