Цифра пять входит в десятичную запись черырехзначного числа K

@Demon159 · Регистрация: 15.10.2010

Author24 — интернет-сервис помощи студентам

Написать программу, проверяющую истинность высказывания «Цифра пять входит в десятичную запись черырехзначного числа K».

@Mad_Dog · 17.10.2010, 14:08

Delphi

//вводим число k...
flag:=false;
while k>0 do //собственно проверяем в цикле...
  begin
    if k mod 10 =5 then flag:=true;
    k:=k div 10
  end;
if flag
  then //цифра 5 входит в число
  else //нет...

@Sergiuz · 17.10.2010, 14:14

только нужно еще где нить возвращать flag в false иначе будет не совсем корректно выполнять

@Mad_Dog · 17.10.2010, 14:18

Ты в этом уверен???

@Demon159 · 17.10.2010, 14:23 **[ТС]**

if k mod 10 =5 then flag:=true;

вот эту строчку не понял там если 10 равно 5 так да????

Добавлено через 25 секунд
ребят я просто болел темы пропустил и щас дуб дубом извините если что за тупые вопросы

@Sergiuz · 17.10.2010, 14:24

Mad_Dog, упс сори я не правильно понял задачу, с чего то решил, что нужно еще и к-во 5 в цифре

@Mad_Dog · 17.10.2010, 14:26

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

if k mod 10 =5 then flag:=true;
вот эту строчку не понял там если 10 равно 5 так да????

Если остаток от деления числа на 10 равен 5, то....
Таким образом проверяем, есть ли цифра "5" в числе...

@Demon159 · 17.10.2010, 14:29 **[ТС]**

спс большое

@Demon159 0 / 0 / 0 Регистрация: 15.10.2010 Сообщений: 15
		1
	Цифра пять входит в десятичную запись черырехзначного числа K 17.10.2010, 13:29. Показов 2352. Ответов 7 Метки нет (Все метки) Написать программу, проверяющую истинность высказывания «Цифра пять входит в десятичную запись черырехзначного числа K». 0

@Sergiuz 161 / 159 / 39 Регистрация: 10.10.2010 Сообщений: 461
	17.10.2010, 14:14	3
	только нужно еще где нить возвращать flag в false иначе будет не совсем корректно выполнять 1

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	17.10.2010, 14:18	4
	Ты в этом уверен??? 1

@Demon159 0 / 0 / 0 Регистрация: 15.10.2010 Сообщений: 15
	17.10.2010, 14:23 [ТС]	5
	if k mod 10 =5 then flag:=true; вот эту строчку не понял там если 10 равно 5 так да???? Добавлено через 25 секунд ребят я просто болел темы пропустил и щас дуб дубом извините если что за тупые вопросы 0

@Sergiuz 161 / 159 / 39 Регистрация: 10.10.2010 Сообщений: 461
	17.10.2010, 14:24	6
	Mad_Dog, упс сори я не правильно понял задачу, с чего то решил, что нужно еще и к-во 5 в цифре 0

@Mad_Dog Фрилансер 452 / 433 / 117 Регистрация: 01.06.2010 Сообщений: 1,314
	17.10.2010, 14:26	7
	Сообщение от Demon159 if k mod 10 =5 then flag:=true; вот эту строчку не понял там если 10 равно 5 так да???? Если остаток от деления числа на 10 равен 5, то.... Таким образом проверяем, есть ли цифра "5" в числе... 1

@Demon159 0 / 0 / 0 Регистрация: 15.10.2010 Сообщений: 15
	17.10.2010, 14:29 [ТС]	8
	спс большое 0