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

Question

Информатика

Нилка

21 февраля, 16:51

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