<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em><em>// Внимание! Если программа не работает, обновите версию!</em>begin
var x:=ReadReal('x=');
var y:=(x*x-7*x+10)/(x*x-8*x+12)+power(x,0.8);
Writeln('y=',y)
end.
A = list()
N = int(input('Кол-во элементов в массиве: '))
for i in range(N):
A.append(int(input('Элемент ' + str(i+1) + ': ')))
print('Вывод в обратном порядке')
for i in range(len(A)-1,-1,-1):
print(A[i])
Var
Summ,Mat,Fizik,Geogr,Biolog,Fizra:integer;
Begin
Writeln('Enter rating');
Readln(Mat,Fizik,Geogr,Biolog,Fizra);
Summ:=Mat+Fizik+Geogr+Biolog+Fizra;
Writeln(Summ);
end.
1. алгоритм сведен к подсчету одинаковых букв в словах: n=9
2. из первой талицы выбираем машины, удовлетворяющие условию, по второй таблице выясняем их владельцев и выстраиваем в алфавитном порядке: 416587