1) var a,b,s:integer; begin Readln(a,b); s:=0; if (a<0)and(b<0) then begin a:=-a; b:=-b; end; if a<0 then for var i:=1 to b do s+=a else for var i:=1 to a do s+=b; WriteLn(s); end.
Пример: -7 15 -105
2) var n,s:integer; begin Readln(n); s:=0; for var i:=1 to n do s+=i; WriteLn(s); end.
Пример: 100 5050
3) var a,b,s:integer; begin Readln(a,b); s:=0; for var i:=a to b do s:=s+i*i; writeLn(s); end.
Пример: 2 5 54
4) var a,b,n:integer; begin Readln(a,b,n); for var i:=1 to n do write(random(b-a+1)+a,' '); end.
Фрагменты таблиц истинности - в прилагаемом файле. Так как в таблицах истинности выражений А и В нет совпадающих строк, то это значит, что значения в столбцах А и В противоположны. Т.е., там где для какого-либо набора переменных выражение А имеет значение 0, выражение В будет равно 1, и наоборот, если для какого-либо набора переменных выражение А имеет значение 1, выражение В будет равно 0. Следовательно, в столбце значений таблицы истинности выражения a v b все значения будут равны 1. Количество единиц = 2^6 = 64 ответ: 64
1 )на стороне А
2)НА СТОРОНЕ А
3)на стороне В