Кондратий при виде семёрок начинает нервно втягивать воздух, а при виде чисел, которые делятся на семь, начинает яростно выдыхать воздух. Чтобы Кондратию не стало совсем плохо, надо оградить его от чисел, в которых есть семёрки, или которые делятся на 7. Если число одновременно и делится на 7, и содержит семёрку, то Кондратий будет нервно-яростно пыхтеть, но это лучше, чем гнать воздух только в одну сторону, так что его жизни ничего не угрожает, и такие числа можно оставить. Формат входных данных Программа получает на вход целое число в пределах от 1 до 100000. Формат выходных данных Программа выводит 'DANGER', если одна из цифр числа - семёрка, либо если число делится на 7. Во всех остальных случаях, а также если выполняются оба условия одновременно, программа выводит 'OKAY'. For example: Input Result 12347 DANGER 12376 OKAY
var s:string; mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице} c:char; i:longint; begin read(s); for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице} mas[c]:=0; for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)} mas[s[i]]:=mas[s[i]]+1; for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся} if(mas[c]=1) then writeln(c); end.