В Паскале ввести целое число и определить сколько в этом числе троек. Я не очень в программировании, поэтому помогите пожалуйста ))
Var a,b,c,d:integer; begin writeln('введите числo'); readln(a); b:=0; while a<>0 do begin c:=a mod 10; a:=a div 10; if c=3 then b:=b+1; end; writeln('количество троек в числе ',b); end.
Спасибо Вам огромное) все верно)))