Натуральное число определить колличество цифр 3 в нем.это из учебника по программированию златопольский 9 класс

Var n,count: longint; begin read(n); count: =0; repeat n: =n div 10; inc(count); until n=0; writeln(count); end.

Вроссии пользователи чаще всего называют символ @ собакой, из-за чего адреса электронной почты, образованные от личных имен и фамилий, приобретают иной раз слегка обидное звучание. справедливости ради надо отметить, что в россии этот знак называют также собачкой, лягушкой, плюшкой, ухом, бараном и даже крякозяброй. пользователям интернета в других странах нравятся самые разные названия для знака @. в японии – «значок а» , в болгарии – «а обезьянье» , в голландии – «обезьяний хвост» , в финляндии – «кошкин хвост» , во франции – «улиточка» , в венгрии – «гусеничка» , «червячок» , «поросячий хвостик» , в израиле – «штрудель» , в китае – «мышонок» , в норвегии – «канельболле» (спирально закрученная булочка с корицей, то есть плюшка) . в германии знак дословно называют «обезьяна с цепким хвостом» , но слово klammeraffe имеет также второе, переносное, значение: так называют пассажира на мотоцикле, сгорбившегося на втором сиденье за спиной водителя. в швеции и дании символ @ сравнивают с хоботом слона, а в испании – со спиралеобразной конфетой, популярной на острове майорка. даже на международном языке эсперанто символ электронной почты получил свое название: «улитка».

Const       n = 10; var       i, c: integer;       a, w: array[1..n] of integer; begin       randomize;             writeln('исходный массив: ');       for i : = 1 to n do       begin               a[i] : = random(201) - 100;               write(a[i], ' ');       end;       writeln;             c : = 0;       for i : = 1 to n do               if a[i] > 0 then               begin                       c : = c + 1;                       w[c] : = a[i];               end;             writeln('кол-во положительных элементов: ', c);       for i : = 1 to n do       begin               if a[i] < = 0 then               begin                       c : = c + 1;                       w[c] : = a[i];               end;       end;             writeln('результат: ');       for i : = 1 to c do               write(w[i], ' '); end.