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

raven4eg · 17.04.2012, 15:30

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

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

Vladimir_S · 17.04.2012, 15:54

Цитата:

Сообщение от raven4eg

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

Дано натуральное число 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 · 17.04.2012, 18:43

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

17.04.2012, 15:30	#1 (permalink)
raven4eg Новичок Регистрация: 17.04.2012 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Паскаль. Проверить наличие цифр в записи числа Разработать алгоритм решения в соответствии с заданием. Составить программу решения задачи. Подготовить тест для проверки программы. Дано натуральное число n. Проверить, есть ли в записи числа цифры 4 и 5.

17.04.2012, 18:43	#3 (permalink)
raven4eg Новичок Регистрация: 17.04.2012 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Спасибо большое) !

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070