Составить программу, проверяющую есть ли цифра n в числе , введённом с клавиатуры. Pascal abc. (не копируйте с других источников, неправильно)
Answers & Comments
flutterputter237
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.
0 votes Thanks 1
NiKaEmpty
5 переменных?(Var), а если сократить их число или не получится?
flutterputter237
можно убрать х, то есть вместо него поставить а
Answers & Comments
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.
Verified answer
Мне нужно вам что то написать так как нужно написать не менее 20 символов)