Крайние точки не учитываются. Если вам необходимо, чтобы они учитывались - замените знаки < и > на <= и >=
var
Y0,X0:integer;
begin
writeln('Введите координаты точки Y0 и X0');
readln(Y0,X0);
if ( ((X0>-6) and (X0<-3)) and ((Y0>-3) and (Y0<2)) )
or
( ((X0>-6) and (X0<-1)) and ((Y0>2) and (Y0<6)) )
then
writeln('Точка принадлежит области')
else
writeln('Точка НЕ принадлежит области')
end.
Var
a,b,c:real;
begin
Read(a,b,c);
if (a=b) and (a=c) then Writeln('Треугольник равносторонний')
else Writeln('Треугольник не равносторонний')
end.
<u>Пример</u>
15 15.0 15.0000
Треугольник равносторонний
var
m,n,mx:integer;
begin
Read(m,n);
if m>0 then
if m>n then n:=m else m:=n
else begin m:=0; n:=0 end;
Writeln('m=',m,', n=',n)
end.
<u>Пример</u>
7 2
m=7, n=7
Получается следующее уравнение при вашем условии:
<span>E8=$А$5*В5</span>
Wde не работает, так что не проверял..
var n,x,s,i:integer;
begin
readln(n); // считываем n
for i:= 1 to n do begin
readln(x); // читаем одно из n чисел
s:=s+x; // добавляем к сумме
end;
writeln(s);
end.