Решите IT алфавит по информатике !

var

s,a,n,i,min,max: integer;

begin

min: =32767;

max: =-32768;

readln(n);

for i: =1 to n do

begin

readln(a);

if a< min then min: =a;

if a> max then max: =a;

end;

s: =(min+max)/2;

writeln(s);

end.

qbasic

? "введите стоимость книг и сумму денег соответсвенно через запятую"

input a,b

if a=b then 1 else 2

1 ? "" : goto 10

2 if a> b then 3 else 4

3 a-b=c

? "не хватает денег,доплатите"; c : goto 10

4 b-a=r

? "ваша здача"; r

10 end

1) +1 = 12) +1 = 23) +1 = 34) *2 = 65) *2 = 126) *2 = 247) +1 = 258) *2 = 50

(¬(m  v  l)  /\  k) → ((¬k  /\¬m)  \/  n)

(¬m /\ ¬l /\  k) → ((¬k  /\¬m)  \/  n)

ложно если первая часть 1 а вторая 0

¬m /\ ¬l /\  k = 1  => m=0, l=0,k=1

(¬k  /\¬m)  \/  n = 0

подставляем

(0 /\1)  \/  n = 0 => n=0