Составить программу, которая находит сумму всех чётных двузначных чисел (для программы паскаль)

ответ:

объяснение:

var s,i: integer;

s : = 0;

for i: = 10 to 99 do

begin if i mod 2 = 0 then

s : = s + i;

end

write('s = ', s)

Ответ:

при любых a, b и c данное выражение истинно.

объяснение:

для начала эквивалентность и импликацию.

экивалентность (≡) раскрывается вот так:

x ≡ y = x ∧ y ∨ -x ∧ -y

применим к нашим данным:

a ∧ b ≡ b ∧ c = (a ∧ b ∧ b ∧ c) ∨ ( -(a ∧ b) ∧ -(b ∧ c) ) =

первая скобка по закону повторения (b ∧ b = b), а вторая скобка, а точнее отрицание раскрывается по закону де моргана:

= (a ∧ b ∧ c) ∨ ( -a ∨ -b ∧ -b ∨ -c) =

по закону исключения третьего (a ∨ -a = 1) запись:

= 1

на самом деле я здесь сильно запись. на самом деле нам не помешало бы раскрыть данную дизъюнкцию, "перемножив" a на -a, a на -b, a на -c, b на -a и так далее. но в итоге данная запись сократится в единицу.

теперь рассмотрим импликацию (⇒):

(x ⇒ y) = -x ∧ y

применим к нашим данным:

(-c ⇒ a) = -(-c) ∧ a =

по закону двойного отрицания (-(-c) = c):

c ∧ a

итого наш пример принял такой вид:

1 ∨ c ∧ a

данное выражение всегда истинно, поскольку дизъюнкция истинна в том случае, когда одно из выражений истинно, а в нашем случае левая часть (единица), то есть дизъюнкция вседа истинна.

ответ:

var

  a: array[1..10] of integer;

  i, n, min, b: integer;

begin

  readln(n);

  b: =0;

  for i: =1 to n do  

    read(a[i]);

  a[1]: = min;

  for i: =1 to n do  

    if a[i]< min then  

    begin

      b: =b+1;

    end;

  writeln(b);

  for i: = 1 to n do

    write(a[i],' ');

end.

объяснение:

если я все правильно понял, нам надо найти количество замен элементов массива на минимум.