На награждении оказалось, что двоих победителей-пятиклассников зовут одинаково (совпадают и имена, и фамилии). Логин одного из них — edge781. Напишите логин второго:
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016 begin var s:=ReadInteger('n=').ToString.JoinIntoString(''); Writeln('Цифр в числе- ',s.Length); Writeln('Сумма цифр- ',s.Select(d->Integer.Parse(d)).Sum); Writeln('Последняя цифра- ',s.Last); Writeln('Первая цифра- ',s.First); Writeln('Предпоследняя цифра- ',s[s.Length-1]); var m:=ReadInteger('m='); Write('Сумма ',m,' последних цифр числа- '); Writeln(s.Skip(s.Length-m).Select(d->Integer.Parse(d)).Sum); Write('Цифра 3 в запись числа '); if Pos('3',s)>0 then Writeln('входит') else Writeln('не входит'); Writeln('Число в обратном порядке- ',s.Reverse.JoinIntoString('')); Writeln('Перестановка первой и последней цифр- ', s.Last+Copy(s,2,s.Length-2)+s.First); end.
Тестовое решение: n= 1063 Цифр в числе- 4 Сумма цифр- 10 Последняя цифра- 3 Первая цифра- 1 Предпоследняя цифра- 6 m= 2 Сумма 2 последних цифр числа- 9 Цифра 3 в запись числа входит Число в обратном порядке- 3601 Перестановка первой и последней цифр- 3061
S = input() B = input() C = [int(i) for i in input().split()] A = input()
for m in [i for i in set([j for j in range(len(S))]).difference(C)]: if S[m] in B.split():S = S[:m] + A[0] + S[m+1:] print(S)
// Pascal
Var S:string[100]; B:string[50]; C:array[0..100] of byte; A:char; j,m:byte; L:boolean; Begin ReadLn(S); ReadLn(B); j:=0; Read(A); While A <> #13 do Begin Read(C[j]); C[j]:=C[j]+1; j:=j+1; Read(A); End; ReadLn(); Read(A); For m:= 1 to Length(S) do Begin L:=true; For j:= 0 to j do if C[j] = m then L:=false; if L then if pos(S[m],B) <> 0 then S[m]:=A; End; WriteLn(S); End.
friend758
Объяснение:
Сама проверила)