Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
0 / 0 / 1
Регистрация: 31.01.2010
Сообщений: 50
1

Выяснить, входит ли цифра 3 в запись числа

10.02.2010, 17:34. Просмотров 2891. Ответов 7
Метки нет (Все метки)


Помогите пожалуйста,Дано натуральное n. Выяснить, входит ли цифра 3 в запись числа
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
10.02.2010, 17:34
Ответы с готовыми решениями:

входит ли цифра 3 в запись числа n^2
дано натуральное число n, выяснить, входит ли цифра 3 в запись числа n^2

цифра пять входит ли в десятичную запись 4х-значного числа k
остался один номер как делать не знаю, точто знакомые помогли не подошло,кто знает прошу...

Определить, входит ли определенная цифра в десятичную запись введенного числа
Напишите программу которая вводит трехзначное число и десятичную цифру. Определить входит ли эта...

Дано целое число N .Входит ли цифра 3 в его запись, если входит, то сколько раз
Дано целое число N.Входит ли цифра 3 в его запись если входит , то сколько раз?

__________________
Помогаю в написании курсовых работ и дипломов здесь.
7
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
10.02.2010, 17:36 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var n:longint;
f:boolean;
 
begin
 clrscr;
 write('N-> ');
 readln(n);
 f:=false;
 while n<>0 do
 begin
  if  n mod 10=3 then f:=true;
  n:=n div 10;
 end;
 if f then write('YES') else write('NO');
 readln;
end.
1
Retired
7720 / 2552 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
10.02.2010, 17:47 3
или так
Pascal
1
2
3
4
5
6
7
8
9
var
  N: integer;
  temp: string;
begin
  ReadLn(N);
  Str(N,temp);
  WriteLn(Pos('3',temp)<>0);
  ReadLn
end.
1
0 / 0 / 1
Регистрация: 31.01.2010
Сообщений: 50
10.02.2010, 17:53  [ТС] 4
а если не трудно, можно суть самой программы, что там и как...
0
Retired
7720 / 2552 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
10.02.2010, 17:59 5
Кссер, мою скорее всего препод Ваш не примет, а суть на самом деле простая. Она укладывается в эти строки из хэлпа
Str(x,s)
Str(x:n,s)
Str(x:n:m,s) процедура s - string, x - integer, real и n, m - integer преобразует x к строковому представлению (во втором и третьем случаях согласно формату вывода, устанавливаемому n и m) и записывает результат в строку s
Pos(subs,s) функция s, subs - string integer возвращает позицию первой подстроки subs в строке s (или 0 если подстрока не найдена)
0
0 / 0 / 1
Регистрация: 31.01.2010
Сообщений: 50
10.02.2010, 18:07  [ТС] 6
f:=false; для чего мы это задаём?
0
4337 / 1469 / 680
Регистрация: 12.03.2009
Сообщений: 5,310
10.02.2010, 18:08 7
Кссер, флаг - FALSE, если цифры 3 не встречали, TRUE - встречали.
1
Retired
7720 / 2552 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
10.02.2010, 18:20 8
Кссер, можно и так, без логической переменной
Pascal
1
2
3
4
5
6
7
8
9
10
var
  temp,N: integer;
begin
  ReadLn(N);
  temp:=N;
  while (temp mod 10 <> 3) and (temp <> 0) do
    temp:=temp div 10;
  WriteLn(temp mod 10 = 3);
  ReadLn
end.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.02.2010, 18:20

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

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

Выяснить, входит ли цифра 3 в запись числа n
1). Дано натуральное число n. Выяснить входит ли цифра 3 в запись числа n (в квадрате). &quot;решать...

Дано натуральное n. Выяснить, входит ли цифра 3 в запись числа n^2
Дано натуральное n. Выяснить, входит ли цифра 3 в запись числа n^2 помогите

Выяснить, сколько раз входит в состав натурального числа цифра 3
Цикл с параметром Выяснить, сколько раз входит в состав натурального числа цифра 3


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

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

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