Question

Дано натуральное число. Узнать: если в этом числе цифра 8.

Answer 1

Pascal:
var a:integer;
s:string;
begin
readln(a);
s:=inttostr(a);
if pos('8',s)<>0 then writeln('Есть') else writeln('Нет');
end.