Const eps=0.001;
var x,xi,an,s:real; i,f:integer;
begin
readln(x);
xi:=1; f:=1; i:=0;
an:=xi/f; s:=an;
while abs(an)>eps do
begin
i:=i+1;
f:=f*i;
xi:=xi*x;
an:=xi/f;
s:=s+an;
end;
writeln('s = ',s:6:4,' e^',x:0:1,' = ',exp(x):6:4);
end.
Пример:
0.9
<span>s = 2.4595 e^0.9 = 2.4596</span>
<span>t >= 6 + (простое высказывание)</span>
<span>t = 9 + (простое высказывание)</span>
<span>t >= 10 + (простое высказывание)</span>
<span>t < 10 - (простое высказывание)</span>
<span>t>= 6 И t<10 +</span>
<span>t< 4 И t<10 -</span>
<span> t<4 ИЛИ t<10 +</span>
<span><span>4, 5, 6, 7, 8, 9</span></span>
// PascalABC.NET (версия 3.2, сборка 1363)
var
n, a, b: integer;
begin
n := ReadInteger();
a := n mod 1000 div 100;
b := n mod 100 div 10;
writeln('Сумма: ', a + b);
writeln('Произведение: ', a * b);
end.