1:
a = int(input())
b = int(input())
if a == b:
print('Числа равны')
elif a > b:
print(f'Первое число - {a} больше, чем второе число - {b})
elif a < b:
print(f'Второе число - {b} больше, чем первое число - {a}')
2:
a = int(input())
b = int(input())
print('Периметр треугольника', a * 3)
print('Периметр квадрата', b * 4)
if a * 3 == b * 4:
print('Периметры равны')
elif a * 3 > b * 4:
print('Периметр треугольника больше, чем периметр квадрата')
elif a * 3 < b * 4:
print('Периметр квадрата больше, чем периметр треугольника')
3:
a = int(input())
b = int(input())
c = int(input())
print('MAX=', max(a, b, c), sep='')
4:
m = int(input())
t = int(input())
if m > t:
print('У Маринки больше яблок. Тарасу нужно дать ещё', m - t, 'ябл.')
elif m < t:
print('У Тараса больше яблок. Маринке нужно дать ещё', t - m, 'ябл.')
elif m == t:
print('Количество яблок равно.')
Объяснение:
извини, украинский не знаю, думаю сам изменишь, если нужно
Программа написана на из 100, но пока это лучший результат, язык Python
a = int(input())
b = int(input())
if (a + b) % 3 != 0:
print(-1)
elif (a + b)/3 > a or (a + b)/3 > b:
print(-1)
elif (a + b)/3 == a:
print(0)
print((a + b)/3)
elif (a + b)/3 == b:
print((a + b)/3)
print(0)
else:
if a > b:
print(int(((a + b)/3)- (((a + b)/3)-(a - b
print(int(((a + b)/3)-(a - b)))
if b > a:
print(int(((a + b)/3)- (((a + b)/3)-(b - a
print(int(((a + b)/3)-(b - a)))
ответ:uses crt;
const SIZE=10;
type MyMassive:ARRAY[1..SIZE] OF INTEGER;
var MyMass:MyMassive;
i:integer;
procedure quickSort(var numbers:MyMassive; left,right:integer);
var
pivot:integer; // разрешающий элемент
begin
l_hold := left; //левая граница
r_hold := right; // правая граница
pivot := numbers[left];
while (left < right) do // пока границы не сомкнутся
begin
while ((numbers[right] <= pivot) and (left < right)) do
dec(right); // сдвигаем правую границу пока элемент [right] больше [pivot]
if NOT (left = right) then // если границы не сомкнулись
begin
numbers[left] := numbers[right]; // перемещаем элемент [right] на место разрешающего
Inc(left); // сдвигаем левую границу вправо
end;
while ((numbers[left] >= pivot) AND (left < right)) do
Inc(left); // сдвигаем левую границу пока элемент [left] меньше [pivot]
if NOT (left = right) then// если границы не сомкнулись
begin
numbers[right] := numbers[left]; // перемещаем элемент [left] на место [right]
Dec(right); // сдвигаем правую границу вправо
end;
end;
numbers[left] := pivot; // ставим разрешающий элемент на место
pivot := left;
left := l_hold;
right := r_hold;
if (left < pivot) then// Рекурсивно вызываем сортировку для левой и правой части массива
quickSort(numbers, left, pivot - 1);
if (right > pivot) then
quickSort(numbers, pivot + 1, right);
End;
begin
clrscr;
writeln('первоначальное заполнение массива:');
for i:=1 To SIZE do
begin
MyMass[i]:=Trunc(random(20))-10;
write(' ',MyMass[i]);
end;
writeln;
quickSort(MyMass, 1, SIZE);
writeln('результат:');
for i = 1 to SIZE do write(' ',MyMass[i]);
writeln;
readkey();
end.
Объяснение: