В паскале используется оператор "to" (вроде оператор, не шарю за программирование). Внизу прога, которая определяет чётность индекса элемента. Если ввести 4, 5, 3, 4, 2, 3, то он выведет 4, 3, 2. Переведите на python и дайте ответ на вопрос: как заменить "to", используемый в паскале, в питоне? var A:array[0..9999]of longint;
i, N: integer;
begin
readln(N);
for i:=0 to N-1 do read (A[i]);
for i:=0 to N-1 do
if i mod 2 = 0 then write(A[i], '')
end.
Рассмотрим первый вариант, когда символ Х стоит на последнем месте:
Всего 5 позиций. Последняя из них точно будет занята символом Х, тогда свободными остаются первые 4 позиции: * * * * Х
На каждую из них может приходиться какой-то один из символов А, В или С
Тогда общее число возможных вариантов вычисляется, как 3^4 = 81.
Рассмотрим второй вариант, когда символа Х нет вовсе. В этом случае на каждую из 5-ти позиции может приходиться один из символов А, В или С.
Тогда общее число вариантов вычисляется, как 3^5 = 243
В итоге получаем, что всего кодовых слов может быть 243+81 = 324.
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