Var
N:integer;
X,S:real;
Begin
S:=0;
Write('N = ');
Read(N);
Write('X = ');
Read(X);
For N:= 1 to N do
S:=S+power(X,N);
Write('S = ',S)
End.
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
А)
X > Y ⇒ 2 > 2 ⇒ ложь (false)
б)
X > Y ⇒ 2 > -8 ⇒ истина (true)
Ответ: Операционная система