ПИТОН 1. Прочитайте последовательность целых чисел. Выведите список, в котором на первом месте будет стоять максимум последовательности, а потом будут идти все остальные числа в исходном порядке.
Sample Input:
1
2
3
.
Sample Output:
[3, 1, 2]
2. Прочитайте последовательность целых чисел. Выведите список, в котором сначала будут стоять первые три самых больших числа последовательности, упорядоченные по убыванию, а потом будут идти все остальные числа в исходном порядке.
Sample Input:
1
4
3
2
6
7
.
Sample Output:
[7, 6, 4, 1, 3, 2]
3. Прочитайте последовательность целых чисел. Выведите список в котором сначала будут числа, которые меньше трех, а потом те, что больше или равны трем.
Sample Input:
-1
6
2
4
.
Sample Output:
[-1, 2, 6, 4]
uses crt;
var a,b,c:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите катеты: ');
write('a= ');readln(a);
write('b= ');readln(b);
writeln('Периметр прямоугольного треугольника = ',a+b+sqrt(a*a+b*b):8:2);
end.
Program Vby_2;
uses crt;
var a,b,h,t:real;
begin
writeln('*** Alphaues is thinking... ***');
writeln('Ok, введите данные: ');
write('Одно основание = ');readln(a);
write('Другое основание = ');readln(b);
write('Высота = ');readln(h);
t:=abs(a-b)/2;
writeln('Периметр трапеции =',a+b+sqrt(h*h+t*t):8:2);
end.
Program Vby_3;
uses crt;
var s:integer;
begin
writeln('*** Alphaues is thinking... ***');
write('Ok, введите расстояние в сантиметрах: '); readln(s);
write('Число полных метров = ',s div 100);
end.