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

2

Ответы и объяснения

2012-11-21T15:36:28+04:00

program A1;
var i,s: integer;
begin
s:=0;
for i:= 1 to 10000 do
if ((i mod 13) <>0) and ((i mod 17) <>0) then s:=s+1;
write (s);
end.

Ответ: 8688

2012-11-21T17:11:05+04:00

program A1;
var i,s: integer;
begin
s:=0;
for i:= 1 to 10000 do
if ((i mod 13) <>0) and ((i mod 17) <>0) then s:=s+1;
write (s);
end.

Ответ: 8688