Составить программу, проверяющую есть ли цифра n в числе , введённом с клавиатуры. Pascal abc.
(не копируйте с других источников, неправильно)
(не копируйте с других источников, неправильно)
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Verified answer
Program n1;var a,n: integer;
f: byte;
begin
f:=0;
readln(a,n);
while a<>0 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.