Var a,s:integer;
begin
s:=0;
a:=9;
repeat
a:=a+2;
s:=s+a;
until a=99;
writeln('s = ',s);
end.
Результат:
s = 2475
Const n=8;
var x:array[1..n] of real;
i:integer; min:real;
begin
for i:=1 to n do
begin
write('x[',i,']=');
readln(x[i]);
end;
min:=x[1];
for i:=2 to n do
if x[i]<min then min:=x[i];
for i:=1 to n do
if x[i]<0 then x[i]:=min;
for i:=1 to n do write(x[i],' ');
writeln;
<span>end.
</span>
Области показаны на приложенных скриншотах.
В примере б) левое и правое неравенство (когда они истинные) дают не пересекающиеся области на плоскости. Левое неравенство- всё, что вне окружности радиусом 3, а правое- всё, что внутри ромба, целиком находящегося внутри вышеупомянутой окружности. Поэтому, всё выражение будет истинным, только если оба неравенства будут ложными (дадут результат false).
Программа написана на языке программирования PascalABC