Вводиться три целых числа, определить сколько кратных 3
В паскале

это если про циклы еще не знаетеprogram tref;var a,b,c,sum:integer;beginreadln(a,b,c);if(a mod 3 = 0)then sum:=sum+1;if(b mod 3 = 0)then sum:=sum+1;if(c mod 3 = 0)then sum:=sum+1;writeln(sum);readln;end.А это если уже изучали циклы program tref;var a,i,sum:integer;beginfor i:=1 to 3 dobeginreadln(a);if(a mod 3 = 0)then sum:=sum+1;end;writeln(sum);readln;end.