Составить программу, проверяющую есть ли цифра n в числе, введённом с клавиатуры. Pascal abc.

(не копируйте с других источников, неправильно)

Question

Информатика

Марка

6 ноября, 04:59

Составить программу, проверяющую есть ли цифра n в числе, введённом с клавиатуры. Pascal abc.

(не копируйте с других источников, неправильно)

+4

Ответы (1)

Знаете ответ на вопрос?

Натуля · Answer 1

Program n1;

var a, n: integer;

f: byte;

begin

f:=0;

readln (a, n) ;

while a0 do

begin

if a mod 10=n then f:=1;

a:=a div 10;

end;

if f=1 then write ('цифра ', n,' присутствует в числе')

else write ('в числе нет цифры ', n) ;

end.

Составить программу, проверяющую есть ли цифра n в числе, введённом с клавиатуры. Pascal abc.(не копируйте с других источников, неправильно)

Составить программу, проверяющую есть ли цифра n в числе, введённом с клавиатуры. Pascal abc.

(не копируйте с других источников, неправильно)