var
a,b,P,S:real;
begin
readln(a);
readln(b);
P:=2*(a+b);
S:=a*b;
writeln('perimetr=', P);
writeln('ploshad=', S);
end.
Y:=5*Sqr(x)-3*sqrt(2+x)+3;
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var ЕстьКусков,НадоКусков:integer;
Readln(ЕстьКусков,НадоКусков);
var Длины:=ReadArrInteger(ЕстьКусков);
var ОбщаяДлина:=Длины.Sum;
if НадоКусков>ОбщаяДлина then Writeln(0)
else begin
var ДлинаКуска:=ОбщаяДлина div НадоКусков;
repeat
if Длины.Select(Кусок->Кусок div ДлинаКуска).Sum >=НадоКусков then break
else ДлинаКуска-=1;
until false;
writeln(ДлинаКуска)
end
end.
<u>Пример</u>
4 11
802 743 457 539
200
Начинаем раскодировать с начала.
Первая цифра в шифровке 5 – это начало только кода 5 (Д).
Вторая цифра 1 – это могло бы быть просто 1 (А), но тогда следующий код начинался бы с нуля, что невозможно. Значит, дальше идет 10 (И).
Остаётся 1912. Так как 9 не стоит в начале ни одного кода, 9 – окончание кода какой-то буквы, буду промежутки между буквами показывать черточкой: 19-12. 19 и 12 можно разбивать или не разбивать на коды, это даёт 4 варианта:
– 19-12 (СК)
– 1-9-12 (АЗК)
– 19-1-2 (САБ)
– 1-9-1-2 (АЗАБ)
Итого, имеем 4 варианта дешифровки:
5-10-19-12 (ДИСК)
5-10-1-9-12 (ДИАЗК)
5-10-19-1-2 (ДИСАБ)
5-10-1-9-1-2 (ДИАЗАБ)
Ответ:
def reverse(arg):
return arg[::-1]
def main():
number = input()
try:
assert len(number) == 5
except AssertionError:
print('Wrong input!')
else:
print(reverse(number))
if __name__ == '__main__':
main()
Объяснение:
Для вашего удобства ниже приложен скриншот кода. Сайт напрочь ломает табуляции