На вход программы поступает неизвестное количество чисел целых, ввод заканчиваем нулем. определить сколько полученно чисел которые делятся на 3 составить в кумире

алг

нач

цел a,k

ввод a

k:=0

нц пока a<>0  

если mod(a,3)=0 то k:=k+1 все

ввод a

кц

вывод 'количество чисел, делящихся на 3: ',k

кон