Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дано натуральное число.Определить, есть ли в нем цифра равная а (а вводится с клавиатуры)

Ответ оставил Гость

var
z,a,i:integer;
begin
writeln(vvedite chislo);
readln(z);
writeln(vvedite zifru);
readln(a);
for i:=1 to length(IntToStr(z)) do begin
if z mod 10 = a then
writeln(est);
z:=z div 10;
end;
end.