Формула в D2 =НЕ(ИЛИ(A2;C2))
Формула в E2 =НЕ(B2)
Формула в F2 =И(D2;E2)
Формула в G2 =И(НЕ(A2);НЕ(B2))
Формула в H2 =ИЛИ(G2;F2)
Алг Число
нач
цел n,a,b,c,d
ввод n
a:=mod(n,10);
n:=div(n,10);
b:=mod(n,10);
n:=div(n,10);
c:=mod(n,10);
n:=div(n,10);
d:=n;
вывод "Сумма цифр числа = ", a+b+c+d;
вывод " Произведение цифр числа = ",a*b*c*d;
кон
<h3>PascalABC.NET 3.4.2, сборка 1887 от 30.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ArrRandom(30, -50, 50);
a.Println;
Writeln('Сумма нечетных значений равна ', a.Where(t -> t.IsOdd).Sum);
var n := ReadInteger('A=');
Print('Искомые индексы:');
a.Select((v, i)-> (v, i + 1)).Where(t -> t[0] > n)
.Select(t -> t[1]).Println;
n := ReadInteger('k=');
if a.Any(t -> t mod n = 0) then Println('Есть кратные')
else Println('Нет кратных')
end.
Ответ:
x1, y1 = int(input()), int(input()) # коорд. первого ферзя
x2, y2 = int(input()), int(input()) # коорд. второго ферзя
if (x1 == x2) or (y1 == y2) or (x1 == y1 and x2 == y2): # условия при которых
# ферзи встречают друг друга на своих линиях атаки
print("Ферзи бьют друг друга")
else:
print("Феризи не бьют друг друга")
Вторая:
str = [int(i) for i in input().split()] # Генерация списка
'''
split() разбивает строку на части,
используя специальный разделитель,
и возвращает эти части в виде списка.
'''
for i in range(1, len(str)-1):
str[i] += 5
print(str)
У меня что-то не грузится.........