var k, a, n: integer;begink:=0;readln(a);while a<>0 dobeginif (a mod 3=0) and (a mod 10=2) then k:=k+1;readln(a);end;writeln(k);end.
32 99 12 192 15 0 42 57 64 102
2
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!