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

@Кссер · Регистрация: 31.01.2010

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

@yanyk1n · 10.02.2010, 17:36

Pascal

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.

@Inadequate · 10.02.2010, 17:47

или так

Pascal

var
  N: integer;
  temp: string;
begin
  ReadLn(N);
  Str(N,temp);
  WriteLn(Pos('3',temp)<>0);
  ReadLn
end.

@Кссер · 10.02.2010, 17:53 **[ТС]**

а если не трудно, можно суть самой программы, что там и как...

@Inadequate · 10.02.2010, 17:59

Кссер, мою скорее всего препод Ваш не примет, а суть на самом деле простая. Она укладывается в эти строки из хэлпа

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 если подстрока не найдена)

@Кссер · 10.02.2010, 18:07 **[ТС]**

f:=false; для чего мы это задаём?

@yanyk1n · 10.02.2010, 18:08

Кссер, флаг - FALSE, если цифры 3 не встречали, TRUE - встречали.

@Inadequate · 10.02.2010, 18:20

Кссер, можно и так, без логической переменной

Pascal

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 / 0 / 1 Регистрация: 31.01.2010 Сообщений: 50
		1
	Выяснить, входит ли цифра 3 в запись числа 10.02.2010, 17:34. Просмотров 2891. Ответов 7 Метки нет (Все метки) Помогите пожалуйста,Дано натуральное n. Выяснить, входит ли цифра 3 в запись числа 0

@Кссер 0 / 0 / 1 Регистрация: 31.01.2010 Сообщений: 50
	10.02.2010, 17:53 [ТС]	4
	а если не трудно, можно суть самой программы, что там и как... 0

@Inadequate 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

@yanyk1n 4337 / 1469 / 680 Регистрация: 12.03.2009 Сообщений: 5,310
	10.02.2010, 18:08	7
	Кссер, флаг - FALSE, если цифры 3 не встречали, TRUE - встречали. 1

Опции темы