Var i,p:integer;
begin
p:=1;
for i:=-20 to 30 do
if i mod 3 = 0 then p*=i;
writeln(p);
<span>end.</span>
А) A = 3, B = 4, C = 5
НЕ (3=4) ИЛИ НЕ (3<5) ⇒ НЕ Ложь ИЛИ НЕ Истина ⇒ Истина ИЛИ Ложь ⇒ Истина
Б) A = -2, B = -2, C = 0
НЕ (-2=-2) ИЛИ НЕ (-2<0) ⇒ НЕ Истина ИЛИ НЕ Истина ⇒ Ложь ИЛИ Ложь ⇒ Ложь
В) A = 0, B = 0, C = -2
НЕ (0=0) ИЛИ НЕ (0<-2) ⇒ НЕ Истина ИЛИ НЕ Ложь ⇒ Ложь ИЛИ Истина ⇒ Истина
Г) A = -2, B = 0, C = -2
НЕ (-2=0) ИЛИ НЕ (-2<-2) ⇒ НЕ Ложь ИЛИ НЕ Ложь ⇒ Истина ИЛИ Истина ⇒ Истина
Ответ: <span>Б) A = -2, B = -2, C = 0 </span>
А) Источник информации: учитель рассказывает об успеваемости ребёнка матери --> Приёмщик информации: Мама внимательно слушает учителя.
<span>Б) Источник информации: учитель объясняет новую тему на уроке --> Приёмщик информации: ученики внимательно слушают и запоминают информацию. </span>
<span>С) Источник информации: газеты содержат множество различной информации --> Приёмщик информации: ребёнок читает нужную ему информацию </span>
<span>Д) Источник информации и приёмщик информации: мама спрашивает у своей дочки, как она провела день, и слушает ответ на этот вопрос--->Приёмщик информации и источник информации: девочка слушает вопрос и отвечает на него</span>
P = 0
a = []
for i in range(int(input("Введите кол-во чисел: "))):
n = int(input("Введите каждое число отдельно: "))
a.append(n)
if n > 0:
p += 1
print(a)
print("Положительных: ", p)
Var
i, k, n, d: integer;
begin
readln(n);
k := 0;
for i := 1 to n do
begin
readln(d);
{ d:=Random(100); }
if (d mod 10 = 3) then
k := k + 1;
end;
writeln(k);
end.