Только программы (без примеров):
А)
CLS
DIM a(1 TO 10) AS INTEGER
PRINT "Введите 10 чисел"
FOR i = 1 TO 10
INPUT a(i)
NEXT i
max = a(1)
FOR i = 2 TO 10
IF a(i) > max THEN max = a(i)
NEXT i
PRINT "max = ";max
END
Б)
CLS
INPUT "Введите количество элементов массива"; n
DIM a(n)
FOR i = 1 TO n
INPUT "Введите значение элемента: "; a(i)
NEXT i
max = a(1)
FOR i = 2 TO n
IF a(i) > max THEN max = a(i)
NEXT i
PRINT "max = ";max
END
Ответ:
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("Существует")
Объяснение:
Там все понятно
var
a:array [1..10] of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do begin
a[i]:=random(20)+1;
write (a[i],' ');
end;
writeln;
for i:=1 to 10 do
if odd(a[i])=true then write (a[i],' ');
readln;
end.
нц
для i от 1 до 2
S := 0
нц
для j oт 2 до 3
нц для k oт 1 до 2
S := S+i+j+k
кц
кц
кц
S = (2 + 2 + 1) + (2 + 2 + 2) + (2 + 3 + 1) + (2 + 3 + 2) = 5 + 6 + 6 + 7 = 24
¬(¬A/\P)VQ
AV¬PVQ
Выражение ¬P ∨ Q истинно на множестве (−∞, 10] ∪ [48, ∞)
Поскольку все выражение должно быть истинно для любого x, выражение A должно быть истинно на полуинтервале (10;48)= > 36 длина
