#python 3.6
file1 = open('input.txt', 'r')
spisok = file1.read().split()
spisok2 = sorted(spisok, key=lambda x:x[-1]) #сортирует только по последней цифре, не смотрит на остальные, чтобы сортировать по предыдущей при одинаковых последних пиши lambda x:x[::-1]
file1.close()
file2 = open('output.txt', 'w')
for I in spisok2:
file2.write(I+'\n') # перед строкой tab или пробелы
file2.close()
//Pascal ABC.NET v3.1 сборка 1219
Const
n=5;
Var
ar:array[1..n] of integer;
i:integer;
begin
for i:=1 to n do
readln(ar[i]);
for i:=1 to n-1 do
if ar[i]>ar[i+1] then
begin
writeln('Убывает на одном из участков');
exit;
end;
writeln('Возрастает');
end.
// PascalABC.Net v3.1
var
n,p: integer;
begin
// 1. вывод нечетных от 50 до 40
n:=51;
while n>=41 <span>do begin </span>
writeln(n);
n:=n-2;
end;
// 2. Произведение от 7 до 12
p:=1;
n:=7;
while n<=12 do begin
p:= p* n;
n :=n+1;
end;
writeln(p);
end.
правило кодирования:перестановка букв
востановленная информация:урок,весна,каникулы,информация
,мокрому дождь не страшен.