VB.
Dim msg As String
msg = InputBox("Введите строку")
Dim s As Integer
If msg.IndexOf("K") > -1 Then s += 1
If msg.IndexOf("E") > -1 Then s += 1
If msg.IndexOf("Y") > -1 Then s += 1<span>
If s = 3 Then MsgBox("YES") Else MsgBox("NO")
Pascal.
program chislo;
var x : integer;
msg : string;
begin
write('Введите строку: ');
readln(msg);
if pos(msg,'K')>0 then X:=X+1;
if pos(msg,'E')>0 then X:=X+1;
if pos(msg,'Y')>0 then X:=X+1;
if (x=3) then writeln('YES') else writeln('NO')
<span>end.</span></span>
1) var a,b:integer;beginreadln(a,b);if a>b thenwriteln(a+b,' задача решена')else writeln(a*b,' задача решена');end.
2) !!! ; 3 ; 16 ; 7 ; 8 ; 29 ; 66
3) 1
4) -5; 0; -6; 5; -0.4; 0.32; -17; 15; 11; 7; 8
A, b, c, D : integer;
begin
Writeln('Введите коэфф-ты а, b и c');
Readln(a,b,c);
D = b * b - 4 * a * c;
Writeln(D);
Readln();
end.
Учтите, что если вам нужна программа для нахождения корней квадратного уравнения, то вам надо проверять все условия. Например, дескриминант может быть равен нулю и тд
Для решения задачи нужно использовать формулу Хартли: N = 2^I
Количество подъездов = 2^3 = 8
1.
num = input()
num_rev = int(num[::-1])
print(max( int(num), num_rev ))
2.
num1 = int(input())
num2 = int(input())
num3 = int(input())
more_then_0 = 0
less_then_0 = 0
is_0 = 0
for i in [num1, num2, num3]:
if i > 0:
more_then_0 += 1
elif i < 0:
less_then_0 += 1
else:
is_0 += 1
if more_then_0 == 3:
print(num1 + num2 + num3)
elif less_then_0 == 2:
print(num1 * num2 * num3)
elif is_0 == 2:
print(0)
3. Не понял задание, напиши в комментариях, что именно нужно сделать, а я отредактирую ответ, и напишу решение
4.
kat1 = int(input())
kat2 = int(input())
gip = (kat1**2 + kat2**2)**0.5
S = kat1*kat2/2
P = kat1+kat2+gip