"Дано трехзначное число. Определить входит ли в него цифра 4."

@AspiRin18 · Регистрация: 13.12.2010

Надо решить "Дано трехзначное число. Определить входит ли в него цифра 4."

@mamedovvms · 13.12.2010, 14:21

Pascal

repeat
if Number mod 10 = 4 then
 l:=true;
number := Number div 10;
until(number = 0);
 
if l then writeln('Входит')
else writeln('Нет');

@Dekio · 13.12.2010, 14:23

Pascal

readln(s);
for i:=1 to length(s) do
if s[i]='4' then 
inc(k);
if k>0 then
writeln('Входит ',k,' раз')
else
writeln('Не входит');

@Puporev · 13.12.2010, 14:30

Dekio, Если уж извращаешься со строками, то извращайся нормально

Pascal

1	if pos('4',s)>0 then...

@AspiRin18 · 13.12.2010, 14:35 **[ТС]**

А как сдлелать в Borland C++ 3.1 via DOSBox
помогите плиз...

@AspiRin18 0 / 0 / 0 Регистрация: 13.12.2010 Сообщений: 3
		1
	"Дано трехзначное число. Определить входит ли в него цифра 4." 13.12.2010, 14:19. Просмотров 8473. Ответов 4 Метки нет (Все метки) Надо решить "Дано трехзначное число. Определить входит ли в него цифра 4." 0

@AspiRin18 0 / 0 / 0 Регистрация: 13.12.2010 Сообщений: 3
	13.12.2010, 14:35 [ТС]	5
	А как сдлелать в Borland C++ 3.1 via DOSBox помогите плиз... 0

Опции темы