Яна
5 год назад
Чуваки, помогите. Не шарю совсем, надо написать программу и лучше с объяснениями.
Дано натуральное число. Верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
ОТВЕТЫ
Леонардович
Aug 8, 2019
Требуемая программа:
var n,a: longint; b: boolean;
begin
readln(n);
readln(a);
b:=false;
while ngt;0 do
begin
if n mod 10 = a then b:=true;
n:=n div 10;
end;
if b
then writeln(В числе есть введенная цифра)
else writeln(В числе нет введенной цифры);
end.
Пример:
1236548
2
В числе есть введенная цифра
var n,a: longint; b: boolean;
begin
readln(n);
readln(a);
b:=false;
while ngt;0 do
begin
if n mod 10 = a then b:=true;
n:=n div 10;
end;
if b
then writeln(В числе есть введенная цифра)
else writeln(В числе нет введенной цифры);
end.
Пример:
1236548
2
В числе есть введенная цифра
247
Смежные вопросы: