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

Question

Информатика

Лука

10 ноября, 11:46

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

+1

Ответы (1)

Знаешь ответ?

Настасьюшка · Answer 1

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. / / на Паскале на правельность не проверял