Дано натуральное число. Узнать: если в этом числе цифра 8.
Дано натуральное число. Узнать: если в этом числе цифра 8.
Гость
Ответ(ы) на вопрос:
ГостьPascal:
var a:integer;
s:string;
begin
readln(a);
s:=inttostr(a);
if pos('8',s)<>0 then writeln('Есть') else writeln('Нет');
end.
Не нашли ответ?
Похожие вопросы