Программа на пайтон Недавно Козак Ус нашел волшебный круг! По нему расположены n вершин, так что вершины i и i + 1 - соседние для 1≤i Казак Ус начал делать следующие действия с этим кругом. Он выбрал число х. Если вершины i и j соседние и ai = aj = X, то он разрезает круг по дуге, соединяющей эти две вершины. Другими словами, он делает разрез между двумя соседними вершинами, значениях которых равны x.
Можно выбрать так число х, чтобы Козак Ус сделал по крайней мере два разреза?
Накнул идею,
n = int(input())
i = [int(a) for a in input().split(maxsplit=n)]
k = 0
b = 0
for i in range (k, n + 1):
if i[k] == i[k + 1]:
b = b + 1
k = k + 1
if i[0] == i[n - 1]:
b = b + 1
if b == 2 or b > 2:
print ('Yes')
else:
print ('No')
И выдает ошибку в 6 строке:
'int' object is not subscriptable
Кто шарит
ответ: 1 - C, 2 - B, 3 - B, 4 - B, 5 - B, 6 - C, 7 - B, 8 - B, 9 - C, 10 - D, 11 - A, 12 - B, 13 - B, 14 - B, 15 - D, 16 - C, 17 - B, 18 - D, 19 - C, 20 - B, 21 - D, 22 - B, 23 - B, 24 - C
Объяснение:
1. Предмет информатики — это накопления, хранения, обработки, передачи информации;
2. Тройками из нулей и единиц можно закодировать 8 различных символов.
3. Капитан спрашивает матроса: «Работает ли маяк?» Матрос отвечает: «То загорается, то погаснет!» Чем является маяк в этой ситуации? - источником информации.
4. В каком веке появились первые устройства выполнять арифметические действия? - В XVII в.
5. Механическое устройство, позволяющее складывать числа, изобрел Б. Паскаль.
6. Для какой системы счисления были при первые семикосточковые счеты? - для десятичной;
7. Какое устройство в России получило название «железный Феликс»? - механический арифмометр;
8. В какие годы XX столетия появилась первая электронно-счетная машина? - в 40-е;
9. В каком поколении машин ввод данных можно осуществлять с речи? - 4-м;
10. Архитектура компьютера — это описание устройства и принципов работы компьютера, достаточное для понимания пользователя.
11. Что такое микропроцессор? - Интегральная микросхема, которая выполняет поступающие на ее вход команды (например, вычисление) и управляет работой машины;
12. Подключение отдельных периферийных устройств компьютера к магистрали на физическом уровне возможно с контроллера;
13. Внешняя память необходима для для долговременного хранения информации после выключения компьютера;
14. Для построения с компьютера сложных чертежей в системах автоматизированного проектирования используют графический планшет (дигитайзер);
15. К устройствам накопления информации относится ВЗУ.
16. Что из перечисленного не относится к программным средствам? - процессор;
17. Файлом называется поименованная область на диске или другом машинном носителе;
18. В каком файле может храниться рисунок? - CREML.BMP.
19. Могут ли два каталога 2-го уровня иметь одинаковые имена? - да, если они принадлежат разным каталогам 1-го уровня;
20. Необходимым компонентом операционной системы является командный процессор;
21. Что такое система счисления? - это знаковая система, в которой числа записываются по определенным правилам, с знаков некоторого алфавита, называемых цифрами.
22. Какие системы счисления не используются специалистами для общения с ЭВМ? - троичная;
23. Что называется основанием системы счисления?» - отношение значений единиц соседних разрядов;
24. Все системы счисления делятся на две группы: позиционные и непозиционные;
// PascalABC.Net 3.0, сборка 1066
procedure CheckString(var s:string; var n:integer);
var
i:integer;
begin
i:=Length(s);
while i>0 do begin
if not(s[i] in ['a'..'z']) then Delete(s,i,1);
Dec(i)
end;
n:=Length(s)
end;
var
s1,s2:string;
i,p,n1,n2:integer;
begin
Write('Введите первую строку: '); Readln(s1);
CheckString(s1,n1);
if n1=0 then Writeln('Введенная строка не содержит допустимых символов')
else begin
Write('Введите вторую строку: '); Readln(s2);
CheckString(s2,n2);
if n2=0 then Writeln('Введенная строка не содержит допустимых символов')
else
{ теперь обе строки содержат только маленькие латинские буквы }
if n1=n2 then begin
for i:=1 to n1 do begin
p:=Pos(s1[i],s2);
if p=0 then Break
else Delete(s2,p,1)
end;
if Length(s2)=0 then Writeln('Решение имеется')
else Writeln('Решения нет')
end
else
Writeln('Решения нет');
end
end.
Тестовое решение:
Введите первую строку: this is my own deal!
Введите вторую строку: Тест: *is now=l2ead my sthi?
Решение имеется
Также имеется современное решение, которому пока что в школах не учат:
// PascalABC.Net 3.0, сборка 1066
begin
var s1:=ReadString('Введите первую строку: ').Where(x->x in ['a'..'z']);
if s1.Count=0 then
Writeln('Введенная строка не содержит допустимых символов')
else begin
var s2:=ReadString('Введите вторую строку: ').Where(x->x in ['a'..'z']);
if s2.Count=0 then
Writeln('Введенная строка не содержит допустимых символов')
else
if s1.Except(s2).Count>0 then Writeln('Решения нет')
else Writeln('Решение имеется')
end
end.