Ответы
Ответ дал:
0
Program Pr1;
uses crt;
var mas:array[1..10000] of integer;
i,v:integer;
Begin
clrscr;
v:=0;
for i:=1 to 10000 do mas[i]:=i;
for i:=1 to 10000 do if (mas[i] mod 13<>0) and (mas[i] mod 17<>0) then v:=v+1;
writeln(v);
end.
Похожие вопросы
2 года назад
2 года назад
10 лет назад
10 лет назад
10 лет назад