Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.90/30: Рейтинг темы: голосов - 30, средняя оценка - 4.90
0 / 0 / 2
Регистрация: 07.06.2013
Сообщений: 52
1

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

11.06.2013, 11:19. Показов 5739. Ответов 5
Метки нет (Все метки)

Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2». Если имеется, то вывести True, если нет — вывести False.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.06.2013, 11:19
Ответы с готовыми решениями:

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

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

С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2»
Добрых времени суток. Помогите доделать программу,пожалуйста,завтра сдавать,а довести до рук не...

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

__________________
5
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,021
Записей в блоге: 1
11.06.2013, 12:02 2
Pascal
1
2
3
4
5
6
While n>0 do
Begin
  if n mod 10 = 2 then t:=1;
  n:=n div 10;
End;
writeln(t=1);
0
0 / 0 / 2
Регистрация: 07.06.2013
Сообщений: 52
13.06.2013, 07:05  [ТС] 3
Напиши пож полностью прогу
0
3450 / 2388 / 2135
Регистрация: 04.12.2011
Сообщений: 3,965
13.06.2013, 07:52 4
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
  n: integer;
  f: boolean;
begin
  write('Введите N: ');
  readln(n);
  f:=false;
  while n>0 do
  begin
    if n mod 10=2 then
    f:=true;
    n:=n div 10;
  end;
  writeln(f);
  readln;
end.
0
Модератор
8410 / 4161 / 2875
Регистрация: 17.08.2012
Сообщений: 13,267
13.06.2013, 08:05 5
Как вариант.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
program NumTwo;
 
uses crt;
 
var i, j: integer;
    f: boolean;
 
begin
  f := false;
  write('Enter number: ');
  readln(i);
  i := abs(i); //если ввели отрицательное число, делаем из него положительное
  repeat
    j := i mod 10;
    if j = 2 then f := true;
    i := i div 10;
  until (i = 0) or f;
  writeln(f);
  readln;
end.
0
Фрилансер
3411 / 2808 / 3000
Регистрация: 08.02.2012
Сообщений: 8,021
Записей в блоге: 1
13.06.2013, 08:52 6
Pascal
1
2
3
4
5
6
7
8
9
10
11
Var n,t:integer;
Begin
write('Введите число: ');readln(n);
While n>0 do
Begin
  if n mod 10 = 2 then t:=1;
  n:=n div 10;
End;
writeln(t=1);
readln;
End.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.06.2013, 08:52

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь.

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

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

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

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


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

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

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