Дано натуральное число. Узнать: если в этом числе цифра 8.
Pascal:
var a:integer;
s:string;
begin
readln(a);
s:=inttostr(a);
if pos(8,s)<>0 then writeln(Есть) else writeln(Нет);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
