var
a,a1:integer;
check:boolean;
begin
check:=false;
readln (a);
while (a<>0) do
a1:=a mod 10;
a:=a div 10;
if (a1=2) then check:=True;
end;
writeln (check);
end.
Объяснение:
var
a,a1:integer;
check:boolean;
begin
check:=false;
readln (a);
while (a<>0) do
begin
a1:=a mod 10;
a:=a div 10;
if (a1=2) then check:=True;
end;
writeln (check);
end.
Объяснение: