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('Количество яблок равно.')
Объяснение:
извини, украинский не знаю, думаю сам изменишь, если нужно
1)
var a:string;
s,i:integer;
begin
read(a);
s:=0;
for i:=1 to length(a) do
if a[i]='o' then s:=s+1;
Writeln(s);
end.
2)
var A:array[1..1000] of integer;
N,i:integer;
s:real;
begin
Read(N);
s:=0;
for i:=1 to N do
read(A[i]);
for i:=1 to N do
s:=s+a[i];
s:=s/N;
writeln(s:3:3);
end.
3)
var a:string;
s:integer;
begin
read(a);
s:=length(a);
if a[1]=a[s] then writeln('Da') else writeln('Net');
end.
4)
var a,b:integer;
f:text;
begin
assign(f,'in.txt');
reset(f);
read(f,a,b);
Writeln(a+b);
Writeln(a-b);
Writeln((a+b)/2);
close(f);
end.
Вроде все корректно, проверь
В 4 задаче, название файла in.txt можешь поменять на любое другое
По всем вопросам пиши в ЛС
