A AND (NOT(B))
как я поняла, надо записывать так :)
Var sum:real;
i:integer;
begin
sum:=0;
for i:=1 to 50 do
sum:=sum+(i/2);
writeln(sum);
<span>end.</span>
А) Объект: человек;
Величина: цвет волос;
Значение: ражий.
б) Объект: арбуз;
Величина: вес;
Значение: семь килограмм.
в) Объект: чашка;
Величина: материал;
Значение: фарфор.
г) Объект: монитор;
Величина: диагональ;
Значение: семнадцать дюймов.
Var a,b,c:real;
Begin
Write('Введите время движения: '); readln(a);
Write('Введите длину пути: '); readln(b);
c:=b/a;
write('Скорость равна: ', c);
<span>End.</span>
Var a : integer;
begin
writeln('Введите число');
read(a);
if (a mod 2 = 0) then a:= a div 2 else a:=a;
writeln(a);
end.