Пожалуйста, помогите!!! Выяснить, сколько раз в числе встречается цифра 3. Написать программу, желательно, с циклом while.

1

Ответы и объяснения

2014-02-13T07:14:04+00:00
Program war;
var a,i,j:integer;
begin
readln(a);
i:=0;
while a<>0
do
begin
j:=a mod 10;
if j=3 then
i:=i+1;
a:=a div 10;
end;
writeln(i);
readln
end.
Большое, большое спасибо!!! Все работает!!!)))