Дано трехзначное число. Если в этом числе есть хотя бы одна цифра равная пяти, то...

Question

Дано трехзначное число. Если в этом числе есть хотя бы одна цифра равная пяти, то приписать к этому числу справа две пятерки. Если нет, то вывести сообщение «NO».

Answer 1

Var
  v, a,b, c:integer;
begin
  writeln('Введите трёхзначное число');
  readln(v);
  a:=v div 100;
  b:=(v - a*100) div 10;
  c:=v-a*100-b*10;
  if (a=5) or (b=5) or (c=5) then
    writeln(v*100+55) else writeln('<<NO>>');
end.

{-------Пример---------}
Трёхзначное число 152
Вывод: 15255