Question

PascalABC
дано целое число.Верно ли,что в числе нет 5?

Answer 1

Var A:integer;
B:boolean;
Begin
B:=true;
Write('A = ');Read(A);
While A>0 do
   Begin
   if A mod 10 = 5 then B:=false;
   A:=A div 10;
   End;
if B then WriteLn('Верно')
else WriteLn('Не верно')
End.