ВЫПОЛНИТЬ В ПАСКАЛЕ! Дано целое число N (> 0). С помощью операций деления нацело и взятия...

Question

ВЫПОЛНИТЬ В ПАСКАЛЕ!

Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2». Если имеется, то вывести True, если нет — вывести False.

Заранее спасибо :3

Answer 1

var
    num: integer;
    has2: boolean;

begin
    has2 := false;
    read(num);
    while (num <> 0) do
    begin
        if (num mod 10 = 2) then has2 := True;
        num := num div 10;
    end;
    writeln(has2);
end.

Answer 2

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.