Question

вычислите кол-во натуральных двузначных нечетных чисел не делящихся на 5 (паскаль абс)

Answer 1

Program z_1;

var k,i:integer;

  begin  

k:=0;

    for i:=10 to 99 do

      if (i mod 2<>0) and (i mod 5<>0) then k:=k+1;

     write(k);

      end.