Дано длинное целое число, содержащее не более 100 цифр Определить, есть ли в этом числе заданная цифра

@Vladislan09 · Регистрация: 30.10.2014

Студворк — интернет-сервис помощи студентам

Помогите решить

4. Дано длинное целое число, содержащее не более 100 цифр. Рассматривать цифры числа, как массив символов. Определить есть ли в этом числе данная цифра.

@vint-81 · 30.10.2014, 17:10

Pascal

const p:array[boolean] of string[3]=('NO','YES');
var a:array[1..100]of char;
    s:string;
    k:char;
    i:integer;
begin
 writeln('stroka=?');
 readln(s);
 writeln('simbol=?');
 readln(k);
 for i:=1 to length(s) do a[i]:=s[i];
 while (k<>a[i])and(i<=length(s)) do inc(i);
 writeln(p[i<=length(s)])
end.

@Vladislan09 0 / 0 / 0 Регистрация: 30.10.2014 Сообщений: 4
		1
	Дано длинное целое число, содержащее не более 100 цифр Определить, есть ли в этом числе заданная цифра 30.10.2014, 09:44. Показов 2659. Ответов 1 Метки нет (Все метки) Помогите решить 4. Дано длинное целое число, содержащее не более 100 цифр. Рассматривать цифры числа, как массив символов. Определить есть ли в этом числе данная цифра. 0

	30.10.2014, 17:10

Опции темы

Дано длинное целое число, содержащее не более 100 цифр Определить, есть ли в этом числе заданная цифра

Решение