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

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

Question

Информатика

Гуша

14 июня, 14:16

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

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

+3

Ответы (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.

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