Question

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

Answer 1

program chisla;

var

 a,i:integer;

begin

 a:=0;

 for i:=10 to 99 do

   if (i mod 2 <>0) and (i mod 5 <> 0) then

    begin

     a:=a+1;

     write(i,' ');

    end;

 writeln;    

 writeln('чисел: ',a);

end.