Программист Василий Кардов недавно получил банковскую карточку. Чтобы не забыть пароль к карточке, Василий решил построить его по алгоритму, а именно

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

  • program suma_chisel;

    var s,i,t,c:integer;

    begin

    s:=0;

    for i:=1 to 10000 do begin

    t:=i mod 13;

    c:=i mod 13;

    if not(t=0) and not(c=0) then s:=s+1 end;

    writeln ('Nomer karti - ',s);

    readln

    end. //на Паскале на правельность не проверял

     

     

     

     

     

     

     

     

     

     

     

     

     


See also: