пароль построенный по алгоритму пароль равен количеству от 1 до 10000, не делящихся на 13 и 17

Question

Информатика

Леония

23 февраля, 17:42

пароль построенный по алгоритму пароль равен количеству от 1 до 10000, не делящихся на 13 и 17

+4

Ответы (1)

Знаете ответ на вопрос?

Алинка · Answer 1

Program Pr1;

uses crt;

var mas:array[1 ... 10000] of integer;

i, v:integer;

Begin

clrscr;

v:=0;

for i:=1 to 10000 do mas[i]:=i;

for i:=1 to 10000 do if (mas[i] mod 130) and (mas[i] mod 170) then v:=v+1;

writeln (v) ;

end.