Задание:
Пароль построенный по алгоритму пароль равен количеству от 1 до 10000, не делящихся на 13 и 17
Решение:
Program Pr1; uses crt; var mas: array[1… 10000] of integer; i,v: integer; Beginclrscr; 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.
Знаете другой ответ?