Найти количество натуральных двузначных чисел,

каждое из которых не делится ни на 2, ни на 13 (паскаль)

Question

Вениаминыч

7 мая, 04:16

+5

Ответы (1)

Знаете ответ на вопрос?

Надеха · Answer 1

Var a, i:integer;

begin

a:=0;

for i = 10 to 99 do

begin

if ((i mod 2) 0) and ((i mod 13) 0) then

a:=a+1;

end;

writeln (a) ;

end.

вроде так

Найти количество натуральных двузначных чисел,каждое из которых не делится ни на 2, ни на 13 (паскаль)