Важно! теперь егор просит вас создать функцию сортировать образом вложенные списки, содержащие целые числа. сортировка должна производиться следующим образом: сначала все элементы всех строк списка сортируются с заданного ключа. затем строки переставляются таким образом, чтобы последние элементы были отсортированы с заданного ключа в обратном порядке. параметр data содержит вложенный список, который требуется обработать. параметр key задает функцию, определяющую правило сортировки. задайте значение по умолчанию так, чтобы сортировка производилась по убыванию. функция должна возвращать новый список. формат ввода функция не должна ничего считывать. формат вывода функция не должна ничего выводить. пример 1 ввод вывод data = [[1], [2, 3], [4, 5, 6]] res = [[1], [3, 2], [6, 5, 4]] пример 2 ввод вывод data = [[1], [3, 2], [6, 5, 4]] key = lambda x: x res = [[4, 5, 6], [2, 3], [1]] примечания в примерах: data — передаваемый функции список; key — передаваемая функции функция; res — получаемый от функции результат.
//c циклом for
var s,i:integer;
begin
for i:=100 to 999 do
if i mod 77 = 0 then s:=s+i;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Тестовое решение:
Сумма трехзначных кратных 77: 5929
// с циклом while
var s,i:integer;
begin
i:=100;
while i<=999 do begin
if i mod 77 = 0 then s:=s+i;
i:=i+1;
end;
writeln('Сумма трехзначных кратных 77: ',s);
end.
Var
f,s:text;
st,sp:string;
i:integer;
c:char;
begin
assign(s,'text1.txt');
reset(s);
while not Eof(s) do
begin;
readln(s,sp);
st:=st+sp+chr(10)+chr(13);
end;
close(s);
for i:=1 to length(st) div 2 do
begin
c:=st[i];
st[i]:=st[length(st)-i+1];
st[length(st)-i+1]:=c;
end;
assign(f,'text.txt');
rewrite(f);
write(f,st);
close(f);
end.
Текст в файле text1.txt:
Simple text
1And another simple text
2New text
Текст в файле text.txt:
txet weN2
txet elpmis rehtona dnA1
txet elpmiS