Форум программистов, компьютерный форум, киберфорум
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
12 / 6 / 5
Регистрация: 15.10.2013
Сообщений: 200
1

С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2»

06.02.2014, 21:24. Показов 1161. Ответов 4
Метки нет (Все метки)

Добрых времени суток. Помогите доделать программу,пожалуйста,завтра сдавать,а довести до рук не получается. вот условие:Дано целое число N(>0). С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2». Если имеется , то вывести True, если нет – вывести False.
Ошибка моей программы заключается в том, что если я введу,например,12,то прога выводит False и True, а мне нужно,чтобы вывела только True. А если я введу 22,то она выводит два раза True, а мне нужно,чтобы один раз выводила. Вот мой код:
Delphi
1
2
3
4
5
6
7
8
9
10
11
var
a,a1:integer;
check:boolean;
begin
a:=StrToInt(Edit1.Text);
while (a<>0) do
begin
a1:=a mod 10;
a:=a div 10;
if (a1=2) then Memo1.Lines.Add('True'); end;
if (a1<>2) then Memo1.Lines.Add('False');
Буду благодарен
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.02.2014, 21:24
Ответы с готовыми решениями:

С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2»
Дано целое число N (&gt; 0). С помощью операций деления нацело и взятия остатка от деления определить,...

С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра 2
//Дано целое число N(&gt; 0).С помощью операций деления нацело и взятия остатка от деления определить,...

С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2» через DO WHILE
Дано целое число N (&gt; 0). С помощью операций деления нацело и взятия остатка от деления определить,...

С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N чётные цифры
Дано целое число N.С помощью операций деления нацело и взятия остатка от деления определить,имеется...

4
571 / 525 / 201
Регистрация: 24.01.2012
Сообщений: 1,283
06.02.2014, 22:04 2
Pascal
1
2
3
4
5
6
7
Check:=False;
while (a<>0) do
begin
If (a mod 10) = 2 Then Check:=True;
a:=a div 10;
End;
If Check Then Memo1.Lines.Add('True') Else Memo1.Lines.Add('False');
0
12 / 6 / 5
Регистрация: 15.10.2013
Сообщений: 200
06.02.2014, 22:37  [ТС] 3
можешь полностью,пожалуйста,код написать. а то не робит...
0
571 / 525 / 201
Регистрация: 24.01.2012
Сообщений: 1,283
06.02.2014, 22:42 4
я просто написал часть кода, которую переделал. Но если нужно весь, то вот.
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.button1Click(Sender: TObject);
 var a,i:Integer;
 Check:Boolean;
begin
  Check:=False;
  a:=StrToInt(Edit1.Text);
  while (a<>0) do
  begin
    If (a mod 10) = 2 Then Check:=True;
    a:=a div 10;
  End;
  If Check Then Memo1.Lines.Add('True') Else Memo1.Lines.Add('False');
end;
1
12 / 6 / 5
Регистрация: 15.10.2013
Сообщений: 200
06.02.2014, 22:55  [ТС] 5
ура,спс
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
06.02.2014, 22:55

С помощью операции деления нацело и взятия остатка от деления определить имеется ли в записи числа n цифра "2"
я решила задачу но она выводит только однозначные цифры а многозначные не решает. может я решила...

Используя операции деления нацело и взятия остатка от деления, определить, имеется ли в записи числа цифра k
Полное условие: Дано натуральное число n. Используя операции деления нацело и взятия остатка от...

С помощью операций деления нацело и взятия остатка от деления определить, имеются ли в записи числа N нечетные цифры
Написать программу для PHP Дано целое число N (&gt;0) С помощью операций деления нацело и взятия...

С помощью операций деления нацело и взятия остатка от деления определить, имеются ли в записи числа N нечетные цифры
Дано целое число N (&gt; 0). С помощью операций деления нацело и взятия остатка от деления определить,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.