Составте программу: Среди двузначных чисел найти кол-во чисел которые неоканчиваются на ноль и кратных трём , с объяснением Срочно!
var n,k: integer; begin k:=0; n:=12; repeat if (n mod 10)>0 then k:=k+1; n:=n+3; until n>99; writeln('количество: ',k); end.
K=10s=0for i in range(10,99): if k%10!=0 and k%3==0: s=s+1 k=k+1print(s)