Вопрос по информатике:
Нужна ваша помощь. Необходимо написать программу в PascalABC и лучше с объяснениями. Сам не понимаю.
Дано натуральное число. Верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 21.02.2015 18:52
- Информатика
- remove_red_eye 14378
- thumb_up 48
Ответы и объяснения 2
1. PascalABC.NET 3.2
begin
var s:=ReadlnString('Введите натуральное число:');
var c:=ReadlnChar('Введите цифру для поиска:');
if Pos(c,s)>0 then Writeln('Такая цифра есть')
else Writeln('Такой цифры нет')
end.
2. PascalABC.NET любой версии, Free Pascal и т.д. на строках
var
s:string;
c:char;
begin
Write('Введите натуральное число: '); Readln(s);
Write('Введите цифру для поиска: '); Readln(c);
if Pos(c,s)>0 then Writeln('Такая цифра есть')
else Writeln('Такой цифры нет')
end.
3. То же, но без строк, с циклом
var
n:longint;
d:0..9;
begin
Write('Введите натуральное число: '); Read(n);
Write('Введите цифру для поиска: '); Read(d);
while n>0 do begin
if n mod 10=d then begin
Writeln('Такая цифра есть');
Exit
end;
n:=n div 10
end;
Writeln('Такой цифры нет')
end.
- 22.02.2015 03:05
- thumb_up 40
//PascalABC.NET 3.2 сборка 1318
Var
n,a:integer;
b:boolean;
begin
b:=true; //"флаг", указывающий на результат
readln(a); //вводим цифру
readln(n); //вводим число
while n>0 do //пока число не равно 0
if n mod 10=a then //mod 10 возвращает последнюю цифру числа
begin
b:=false; //если эта цифра равна а, тогда "флаг" меняет своё значение
break; //и выходим из цикла
end
else
n:=n div 10; {иначе посредством div 10 убираем самый правый разряд. Если левый аргумент меньше 10, он вернёт 0 и тем самым завершит цикл}
if b=true then writeln('Да') else writeln('Нет'); {"флаг" остаётся true только если не встретилось совпадений в цикле}
end.
Пример ввода:
3
123
Пример вывода:
Нет
- 23.02.2015 22:22
- thumb_up 39
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.