Цитата:
Сообщение от Мартышонок
3. Дано натуральное число n.Вычислить, входит ли цифра 3 в запись числа n.
|
var
fl,n,i:integer;
s:string[5];
begin
readln(n);
str(n,s); {стандартная процетудара преобразует значиние числа в его строковый вид}
fl:=0;
for i:=1 to length(s) do
if s[i]='3' then fl:=1;
if fl=1 then writeln('входит') else writeln('не входит');
end.