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

Question

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

Comments

Программу надо? или решение?

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.
вроде так

Comments

всё верно, только убери из цикла составной оператор

---

спасибо)исправила)