Question

решите задачу на PascalABC . Срочно надо

Answer 1

var cur, count, tmp, n, t:integer;begin     count := 0;     readln(n);     for cur := 1 to n do     begin          t := 0;          tmp := cur;          while tmp > 0 do          begin               if tmp mod 10 = 2 then inc(t);               tmp := tmp div 10;          end;          if t = 2 then writeln(cur);     end;end.