Свойство такое, что а), в), г) - арифметические прогрессии, б) - геометрическая.
Для целых чисел задаётся переменная integer.
Для вещественных(то есть дробных) чисел задаётся переменная real.
Таким образом мы получаем:
1) L1: integer;
2) srd: real;
Program Turbo;
uses CRT;
Var
N,S:integer;
Begin
S:=0;
Write('N = ');
ReadLn(N);
For N:= 1 to N do
S:=S+N;
if S=N*(N+1)/2 then WriteLn('Тождество верно (',S,'=',S,')')
else WriteLn('Тожедство ложно','(',S,'<>',N*(N+1)/2,')')
End.
Области показаны на приложенных скриншотах.
В примере б) левое и правое неравенство (когда они истинные) дают не пересекающиеся области на плоскости. Левое неравенство- всё, что вне окружности радиусом 3, а правое- всё, что внутри ромба, целиком находящегося внутри вышеупомянутой окружности. Поэтому, всё выражение будет истинным, только если оба неравенства будут ложными (дадут результат false).
Выучить все термины, предварительно изучив тему