Question

Написать программу на Паскале которая запрашивает трёхзначное число, затем с помощью функций Div mod разделяет число на цифры и проверяет имеются ли в введенном числе цифра "5". Если да, то печатает "имеется" иначе "не имеется

Answer 1

var N, k, y: integer;
begin
  write('Введите число: ');
  readln(N);
  k := 0;
  repeat
    y := N mod 10;
    if y = 5 then k := k + 1;
    N := N div 10;
  until N = 0;
  if k <> 0 then writeln('Имеется')
  else writeln('Не имеется')
end.