Задание:
Программист Василий недавно получил банковскую карточку. Чтобы не забыть пароль, решил построить его по алгоритму, а именно: пароль равен количеству от 1 до 10 000, не делящихся на 13 и 17. Чему равен пароль Васи?
Решение:
Program Pr1; uses crt; var i,v: integer; Beginclrscr; i: =1; v: =0; while i <= 10000 do begin if (i mod 13<>0) and (i mod 17<>0) then v: =v+1; i: =i+1; end; writeln (v); end.
Знаете другой ответ?