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