Question

программист Василий Кадров недавно получил банковскую карточку.Чтобы не забыть пароль к карточке, Василий решил построить его по алгоритму, а именно : пароль равен количеству чисел от 1 до 10000, не делящихся на 13 и 17.Чему равен пароль Васи?

Answer 1

Program Pr1;
uses crt;
const n=10000;
var mas:array[1..n] of integer;
i,l:integer;
Begin
clrscr;
for i:=1 to n do mas[i]:=i;
l:=0;
for i:=1 to n do if (mas[i] mod 13<>0) and (mas[i] mod 17<>0) then l:=l+1;
writeln(l);
end.