Решите задачу на PascalABC . Срочно надо
Ваша картинка не открывается
извиняюсь . сейчас исправлял
А теперь
У Сеня все открывается
*меня
теперь открывается
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.
а программа точно работает
да, только оформление малость сбилось. Работает за O(nlogn) времени, должно пройти
тогда спасибо огромное
спасибо огромное. задача прошла все тесты. у меня 5 по программированию