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

nazarkooo nazarkooo    2   06.10.2019 06:30    1

Ответы
жenya жenya  09.10.2020 23:08

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.

     

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика