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

Question

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

Motes

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

Есть ответ

18.12.2022

482

Ответ

Answer 1 · 18.12.2022

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

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

Ответ

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

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