Дано натуральное число.Определить, есть ли в нем цифра равная а (а вводится с клавиатуры)
Дано натуральное число.Определить, есть ли в нем цифра равная а (а вводится с клавиатуры)
Гость
Ответ(ы) на вопрос:
Гость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.
Гостьvar a, c:integer; begin write('Введите число '); readln(c); write('a = '); readln(a); write('в числе ', c ); while c <> 0 do begin if c mod 10 = a then begin writeln(' есть цифра ', a); Exit; end; c := c div 10; end; writeln(' нет цифры ', a); end.
Не нашли ответ?
Похожие вопросы