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

0 голосов
50 просмотров

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


Информатика (30 баллов) | 50 просмотров
Дан 1 ответ
0 голосов

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.

     

(12.2k баллов)
0

братаааааан спасибо