Ни как надо переписывать
не ленись бро : )
Var n: Word;
begin
write('Введите число ');
readln(n);
write((n mod 10 = 3) or (n div 10 mod 10 = 3) or (n div 100 = 3));
readln;
end.
===== PascalABC.NET =====
begin
var a := ArrRandom(20, 0, 100);
a.Println.Where(p -> p mod 5 = 0).Max.Println
end.
Конечное а получается вычитанием из 29 исходного а, таким образом:
а=29-10=19
6 бит. конечно же . Log_2 N=6.