Ответ:
5б:
x = input("введите число: ")
y = ""
for i in range(len(x)):
y += (x[-i])
if x==y:
print ("Перевертыш")
else:
print ("Нет")
_________________________________________________
6:
x1 = int(input("x1: "))
y1 = int(input("y1: "))
x2 = int(input("x2: "))
y2 = int(input("y2: "))
R1 = (x1**2 + y2**2)**(0.5)
R2 = (x2**2 + y2**2)**(0.5)
if R1 > R2:
print ("2 ближе")
elif R2>R1:
print ("1 ближе")
else:
print("одинаково")
_____________________________________________
7:
a = int(input("1 сторона: "))
b = int(input("2 сторона: "))
c = int(input("3 сторона: "))
if (a>=b+c) or (b>=a+c) or (c>=b+a):
print("не существует")
elif a==b and b==c:
print ("Равносторонний")
elif a==b or b==c or a==c:
print ("Равнобедренный")
else:
print("Существует")
Объяснение:
Там все понятно
А) музыкант, карандаш, музыка. б) выполняет команды, носитель информации, передает звук.
Program p1;
var
a:array[1..7,1..7] of byte;
i,j:byte;
begin
for i:=1 to 7 do
begin
for j:=1 to 7 do
begin
if i<=4 then
if (j>=i) and (j<=8-i) then a[i,j]:=1 else a[i,j]:=0
else
if (j<=i) and (j>=8-i) then a[i,j]:=1 else a[i,j]:=0;
Write(a[i,j]:2)
end;
Writeln
end
end.
<em><u>Результат выполнения программы:</u></em>
1 1 1 1 1 1 1
0 1 1 1 1 1 0
0 0 1 1 1 0 0
0 0 0 1 0 0 0
0 0 1 1 1 0 0
0 1 1 1 1 1 0
1 1 1 1 1 1 1
program p2;
var
a:array[1..6,1..6] of byte;
i,j:byte;
begin
for i:=1 to 6 do
begin
for j:=1 to 6 do
begin
a[i,j]:=i+j-1;
if a[i,j]>6 then a[i,j]:=a[i,j]-6;
Write(a[i,j]:2)
end;
Writeln
end
end.
<em><u>Результат выполнения программы:</u></em>
1 2 3 4 5 6
2 3 4 5 6 1
3 4 5 6 1 2
4 5 6 1 2 3
5 6 1 2 3 4
6 1 2 3 4 5
Var x:real;
Begin
WriteLn('y = (4 +3x) / (3 +6x)');
Write('x = ');Read(x);
if 1+2*x = 0 then Write('Ошибка: на ноль делить нельзя!')
else Write('y = ',(4+3*x)/(3+6*x))
End.