Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Дано натуральное число. Определить есть ли в нем цифры 2 и 5. Pascal

Ответ оставил Гость

Var
  n:longint;
  s:string;
  flag:boolean;
begin
  Write(Введите натуральное число: ); Read(n);
  Str(n,s); { перевели в формат символьной строки }
  flag:=False;
  if Pos(2,s)>0 then
  begin Writeln(В числе есть цифра 2); flag:=True end;
  if Pos(5,s)>0 then
  begin Writeln(В числе есть цифра 5); flag:=True end;
  if not flag then Writeln(В числе нет цифр 2 или 5)
end.

Тестовое решение:
Введите натуральное число: 64720051
В числе есть цифра 2
В числе есть цифра 5