Question

Программа в Pascal: Для введенного натурального числа определите, входит ли в него цифра 2

Answer 1

program vhofit_li_2_v_chislo;

var

x:integer;

f:boolean;

begin

read(x);

f:=false;

while (x>0)and(f=false) do

begin

if x mod 10 = 2 then

f:=true;

x:=x div 10;

end;

if f=true then

write('да')

else

write('нет')

end.

Answer 2

Ответ:

###PascalABC.NET

begin

 var num := Readstring();

 if num.Contains('2') then print('входит') else print('не входит');

end.