# -*- coding: utf-8 -*-"""Created on Tue Oct 18 16:38:28 2016 @author: imdunkind""" print("Потерянная карточка")n=int(input("Введите кол-во карточек: "))summaCards=0 # сложим все карточкиsumma_range_i=0 # сумма всех чисел for i in range(1,n+1): summa_range_i+=i # cумма всех N карточек, карточки не повторяются от 1 до N for i in range(1,n): a=int(input("Введите номиналы карточек: ")) summaCards+=a # сумма всех карточек, кроме одной, карточки не повторяются 1 не хватает # summa_range_i-summaCards - разность сумм, узнаем какой карточки нет print("Потерянная карточка - {}".format(summa_range_i-summaCards))
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 begin var lvl:=0; var s:= ''; var predE:=false; foreach var c in s do if c='E' then begin if predE then begin predE:=false; lvl+=1 end else predE:=true end else if c='B' then begin predE:=false; lvl+=1 end; Writeln(lvl,' level') end.
Результат выполнения программы 63 level
И второй вариант, "как не учат в школе":
// PascalABC.NET 3.1, сборка 1204 от 24.03.2016 begin var s:= ''; Writeln(Regex.Matches(s,'E[EB]|B').Count,' Level') end.
