Ограничение времени 2 секунды ограничение памяти 512mb ввод стандартный ввод или input.txt вывод стандартный вывод или output.txt в операционной системе winux реализована следующим образом: каждую секунду , которая была активна (то есть находилась в начале списка ), ставится в конец списка , а все остальные сдвигаются на одну к началу. в одной секретной лаборатории компьютер под winux используется для решения вычислительных . вычислениями занимается solve. с утра список состоял из n , причём solve существовала в нескольких экземплярах, каким-то образом распределённых по списку. вечером в списке по-прежнему было n ; более того, все экземпляры solve были ровно на тех же местах в списке, что и с утра, но при этом список в целом различался (то есть на какой-то позиции с утра и вечером стояли разные ). при этом за день ни одна не должна была завершиться и ни одна новая не должна была быть запущена. вы — разработчик модуля защиты информации в системе winux. ваша — по заданному n определить, обязательно ли из полученной информации следует, что как минимум одна завершилась и как минимум одна была запущена, или же ситуация могла произойти естественным образом. так как лаборатория секретная, никакой другой информации, кроме числа , у вас нет. формат ввода входные данные содержат одно целое число n ( 2 ≤ n ≤ 1 0 9 ). формат вывода выведите “danger”, если непредвиденный запуск гарантированно произошёл, или “safe” в противном случае. пример 1 ввод вывод 5 danger пример 2 ввод вывод 6 safe примечания решением этой должна являться программа на одном из представленных в системе языков программирования, решающая данную . программа должна считывать данные со стандартного ввода (клавиатуры) и выводить на стандартный вывод (монитор). никаких дополнительных строк или символов выводить не разрешается.
program zadacha;
vara: array[1..255] of byte;i,n,k: integer;
beginwrite('введите n от 1 до 100 - количество чисел ');read(n);for i:=1 to n do begina[i]:=random(255);write(a[i]:6);end;
k:=0;writeln();for i:=1 to n do begin if (a[i] mod 3 = 0) and (a[i] mod 5 <> 0) then begin k:=k+1; write(a[i]:6); end;end;writeln();writeln('в массиве ', k, ' элементов, кратных 3 и не кратных 5');end.