Внешние: монитор,принтер, клавиатура, жёсткий диск и колонки
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (fact,eps,s,x):=(1.0,0.001,0.0,1);
while true do begin
fact:=fact*x;
var a:=Power(2/x,x)*fact;
if Abs(a)>eps then begin x+=1; s+=a end
else Break
end;
Writeln('S = ',s:0:3)
end.
<u>Результат</u>
S = 12.946
Отдельное свойство объекта окружающего мира вызывает у нас:2) ощущение.
Uses crt;
var a,b,s:real;
BEGIN
clrscr;
Writeln('Vvedite chislo a: ');
Readln(a);
Writeln('Vvedite chislo b: ');
Readln(b);
If b=0 then Writeln('Popytka delit na 0!');
S:=a/b;
Writeln('',a,' / ',b,' = ',s);
readln;
<span>END.</span>
Смотри. В самом начале идёт единица. Если следующим идёт ноль, то результат просто умножаем на 2,если идёт единица, то результат умножаем на 2 и прибавляем у полученному единицу.
1*2+1*2*2+1*2+1*2+1*2*2=220
1*2+1*2*2*2+1*2*2+1=101