var a: array [1..10] of integer;
ch, proiz, i: longint;
begin
read(a);
ch := 0;
proiz := 1;
for i := 1 to 10 do
begin
if (a[i] mod 2 = 0) then
ch := ch + a[i];
if (a[i] mod 5 = 0) and (a[i] > 10) then
proiz := proiz * a[i];
end;
writeln(ch);
writeln(a[i]);
end.
Объяснение:
создаем массив из десяти элементов и две переменные: ch(сумма), proiz(произведение).
Далее вводим массив с клавиатуры и в цикле начинаем проверять его элементы:
Если остаток от деления(mod) равен нулю(т.е число делится на два), то мы просто пихаем его в сумму, а если число делится на пять и больше десяти, то мы запихиваем его в произведение(перед циклом proiz = 0, так как 0 * любое число = 0).
После завершения цикла выводим сумму и произведение на экран.
Надеюсь всё понятно)
Номер 1
На каникулах мы пойдем в театр или в цирк
Пусть А- поход в театр, B - в цирк
F = A∨B
15 делится на 3 и на 5
Пусть А- 15 делится на 3, B - 15 делится на 5
F= A∧B
Если сумма цифр числа делится на 3 без остатка, то число делится на 3
Пусть А - число делится на 3 без остатка, B - число делится на 3
F= A⇒B
Номер 2
Высказывание A∨B дает объединение множеств A и B. Обозначим истинность выражения за 1, а ложь за 0
Получается, если A = 0, B=0 A∨B - ложно
A=0, B=1 A∨B - истинно
A=1, B=0 A∨B - истинно
A=1, B=1 A∨B - истинно
Номер 3
Действия выполняются сначала в первой скобке
((1∨0)∨1)∨0)= (1∨1)∨0=1∨0=1 (т.к 1∨0 или 0∨1 всегда истинно(=1))
Номер 4
Высказывание A={3=6}. Это ложное высказывание, т.к 3≠6. Т.е А=0
Высказывание B={2<3}. Это истинное высказывание, т.к 2<3. Т.е B=1
Высказывание C={4<1}. Это ложное высказывание, т.к 4>1. Т.е C=0
Перепишем высказывание из задания и подставим в него найденные значения:
(0∨¬1)∧¬(¬0∨1)
Как известно ¬0=1, ¬1=0 (отрицание) ⇒ (0∨0)∧¬(1∨1) = 0∧¬1=0∧0=0
виведе поросто d
Объясненія
бо воно взяте в лапки ''