Пароль построенный по алгоритму пароль равен количеству от 1 до 10000, не делящихся на 13и 17

2xui2 2xui2    1   17.03.2019 14:00    1

Ответы
Angel9087 Angel9087  25.05.2020 19:59

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.

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