Если для этого нужно написать программу, то смотри(Паскаль):
uses crt;
var a,b,c,d,p,p1:real;
begin
clrscr;
write('длина вырезки ');read(a);
write('ширина вырезки ');read(b);
p:=2*(a+b);
write('длина сечения бруска ');read(c);
write('ширина сечения бруска ');read(d);
p1:=2*(c+d);
writeln;
if (p=p1) then
begin
if (c=a) or (c=b) then write('подойдет')
else write('не подойдет');
end
else write('не подойдет');
end.
N = int(input())
Speed_limit_car_count = 0
all_speed = 0
car_speed = []
i = 0
total = None
YN = None
def list_check(car_speed):
for i in range(len(car_speed)):
if car_speed[i] in range(1, 300):
normal = True
continue
else:
normal = False
break
return normal
if N not in range(1, 31):
print('Wrong input')
else:
while i < N:
car_speed.append(float(input()))
i += 1
normal = list_check(car_speed)
if normal:
for i in range(len(car_speed)):
if car_speed[i] <= 30:
Speed_limit_car_count += 1
for i in range(len(car_speed)):
round(car_speed[i])
all_speed += car_speed[i]
total = all_speed/N
if Speed_limit_car_count >= 2:
YN = 'YES'
else:
YN = 'NO'
else:
print('ERROR IN SPEEDLIST. CHEK INPUT!')
print(total, YN)
Программа протестирована. ctrl+c делать не стоит, сайт нарушает табуляции в коде.
var
a: integer;
begin
{1}
readln(a);
if a > 0 then a := a + 1;
writeln(a);
{2}
readln(a);
if a < 0 then a := a * 2;
writeln(a);
{3}
readln(a);
if a <> 0 then a := a - 4;
writeln(a);
{4}
readln(a);
if a > 0 then a := a + 1
else a := a - 1;
writeln(a);
{5}
readln(a);
if a = 0 then a := a + 3
else a := 0;
writeln(a);
end.
{6}
var
x, y: real;
begin
readln(x, y);
if x > y then x := x * y
else x := x + y;
writeln(x);
end.
Program DenisDen4ik;
uses crt;
var
a1,a2,b1,b2:real;
begin
writeln('Введите размеры вырезки ');
write('ширина ');read(a1);
write('длина ');read(a2);
writeln('Введите размеры сечения бруска ');
write('ширина ');read(b1);
write('длина ');read(b2);
writeln();
if ((a1=b1) and (a2=b2)) or ((a1=b2) and (a2=b1)) then
writeln('Этот брусок подойдет')
else writeln('Этот брусок не подойдет');
end.