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('Количество яблок равно.')
Объяснение:
извини, украинский не знаю, думаю сам изменишь, если нужно
Var z:array[1..16] of integer; k:array[1..16] of real; i,p,s:integer; max:real;
Begin
randomize;
for i:=1 to 16 do z[i]:=random(101);
write('Z=');
for i:=1 to 16 do write(z[i],' ');
writeln;
writeln;
p:=0;
s:=0;
for i:=1 to 16 do
if (i mod 2)<>0 then
begin
s:=s+z[i];
p:=p*z[i];
end;
writeln('P=',p);
writeln('S=',s);
writeln;
for i:=1 to 16 do k[i]:=z[i]*exp(ln(i*z[i])/3);
write('K=');
for i:=1 to 16 do write(k[i]:0:0,' ');
max:=k[1];
for i:=1 to 16 do
if k[i]>max then max:=k[i];
writeln;
writeln('max=',max:0:0);
for i:=1 to 16 do
if k[i]=max then k[i]:=0;
write('K=');
for i:=1 to 16 do write(k[i]:0:0,' ');
End.