Составить программу: Определить меньшую из двух величин Y, где X=2-A2, Y=3-B. Значения А и В вводятся с клавиатуры. Вывести X, и результат обработки вывести на экран , не шарю вообще :((
Var n,d10,d:integer; begin Write('Введите двухзначное число: '); Readln(n); d10:=n div 10; d:=n mod 10; if ((d10=1) or (d=1)) then begin Write('В число входит цифра 1'); if ((d10=7) or (d=7)) then Writeln(' и цифра 7') else Writeln end else if ((d10=7) or (d=7)) then Writeln('В число входит цифра 7') else Writeln('В число не входят цифры 1 и 7') end.
Примеры работы программы: Введите двухзначное число: 37 В число входит цифра 7
Введите двухзначное число: 15 В число входит цифра 1
Введите двухзначное число: 71 В число входит цифра 1 и цифра 7
Введите двухзначное число: 28 В число не входят цифры 1 и 7
Пишу на питоне
A = int(input("A = "))
B = int(input("B = "))
X = 2 * A ** 2
Y = 3 * B
print(X)
print(Y)
if X < Y:
MIN = X
print("MIN =", MIN)
else:
MIN = Y
print("MIN =", MIN)