дано двузначное число. определите входит ли в него число b Написать программу
Answers & Comments
sergiyremez
Var a,b,c,d:integer; begin write('введи число=> '); readln(a); write('введи цифру=> '); readln(b); d:=0; while (a<>0) do begin c:=a mod 10; a:=a div 10; if (c=b) then d:=d+1;; end; if (d>0) then writeln('встречается') else writeln('не встречается'); end.
Answers & Comments
begin
write('введи число=> ');
readln(a);
write('введи цифру=> ');
readln(b);
d:=0;
while (a<>0) do begin
c:=a mod 10;
a:=a div 10;
if (c=b) then d:=d+1;;
end;
if (d>0) then writeln('встречается') else writeln('не встречается');
end.
Verified answer
Число я поменял на "д" отдельные числа-"б" "ц" начальное-"а"