Технический форум - Паскаль. Проверить наличие цифр в записи числа

Технический форум (http://www.tehnari.ru/)

- Помощь студентам (http://www.tehnari.ru/f41/)

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

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

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

Цитата:

Сообщение от raven4eg (Сообщение 719074)

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

Код:

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.

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