Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Lady_vamp
0 / 0 / 1
Регистрация: 10.04.2010
Сообщений: 36
#1

Определить, имеется ли в записи числа цифра «2» - Turbo Pascal

16.01.2013, 18:21. Просмотров 3161. Ответов 1
Метки нет (Все метки)

Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2». Если имеется, то вывести True, если нет — вывести False.
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.01.2013, 18:21
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Определить, имеется ли в записи числа цифра «2» (Turbo Pascal):

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

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

Вывести все числа в записи которых имеется цифра 3
Даны натуральные числа a,b (a<=b). В диапазоне вывести все числа в записи...

Определить, есть ли в записи квадрата данного числа цифра 1
Определить, есть ли в записи квадрата данного числа цифра 1

Даны 2 числа.Определить, у которого первая цифра гео десятичной записи больше
Дорогие програмисты. Напишите пожалуйста программу с пояснениями, прямо по...

Дано некоторое натуральное число. Определить сколько и каких цифр встречается в записи числа. Результат обработки: <цифра> - <количество>.
Помогите пожалуйста. Почему-то не получается. Заранее спасибо

1
Kodzaev
3002 / 1891 / 1646
Регистрация: 30.04.2011
Сообщений: 3,054
16.01.2013, 18:33 #2
Лучший ответ Сообщение было отмечено Lady_vamp как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Var
  n,i: Longint;
  f: Boolean;
BEGIN
Write('Введите число: ');
Readln(n);
f:=False;
While n>0 do
begin
  i:=n mod 10;
  n:=n div 10;
  If i=2 Then
  f:=True;
end;
Writeln(f);
END.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.01.2013, 18:33
Привет! Вот еще темы с решениями:

Задано целое число N (>0). C операциями деления нацело и взятия остатка от деления определить, имеются ли в записи числа N цифра 2.
1. Задано целое сило N (&gt;0). C операциями деления нацело и взятия остатка от...

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

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

Найти сколько раз встречается цифра 3 в записи числа n^3
Найти сколько раз встречается цифра 3 в записи числа N^3(-1000&lt;=N&lt;=1000)....


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

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

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