<span>НЕ (Х<6 ) И (Х>7) = (X>=6)И(X>7) = (X>7)
</span>
5 и 6 меньше 7 - условие не выполняется.
7 равно 7, условие опять не выполняется
8 > 7 - условие выполняется.
Ответ: 4.
const - служебное слово задающее программе константу, то есть неизменяемое значение.
Оно задаётся следующим образом:
const
Pi = 3.14;
Name = 'Михаил'
a = 123;
Cлужебное слово CONST в программе на языке PASCAL фиксирует начало раздела программы содержащего <em>константы.</em>
Var x,y,U, S:integer;
begin
readln (x,y);
S:=x+y;
if (S>100) then U:=S/2;
if (S<100) then U:=S; (зависит от условия. по-моему, в задании неправильно поставлено второе условие.)*
writeln (U);
end.
*если в условии написано
"в противном случае умножить на два, то
if (S<100) then U:=S*2;
а если оставить число неизменным, то
if (S<100) then U:=S;
<span>program ves;
const
A1='легкая категория';
A2='средняя категория';
var
b : integer;
begin
write('введите вес спортсмена *пусто* = ');
readln(b);
if b < 59 then writeln(A1) else writeln(A2);
readln;
end.</span>