Function fac(a:integer):int64;
Var i,b:integer;
Begin
b:=1;
for i:= 1 to a do
b:=b*i;
fac:=b;
End;
Var
i,n:integer; s:real;
Begin
s:=1;
Write('Введите число n: ');
Readln(n);
for i:= 1 to 2*n do
s:=s+1/fac(i);
Write(s);
End.
Напиши, после каких действий это окно появилось? Из какого файла, программы?
Тут если переводить с английского, то read - читать x - неизвестный, а значит данная программа не может прочитать какую либо команду.Так же тут видно что программа много раз пыталась повторить команду и у нём это никак не получалось. Ответь на вопросы заданные мной выше и если я смогу прочитать их то отвечу)
Если какое-то число A в степени n мы переводим в A-ичную систему счисления, то мы получим 1 и n нулей (вытекает из способа перевода чисел из десятичной в а-ичную)
Отсюда:
3^14 в троичной записи = 100 000 000 000 000
3^12 = 1 000 000 000 000
3^3 = 1 000
Считаем, получаем 9 двоек
Ответ:
program Calc;
var
i, n, m: Integer;
s: Double;
begin
Write ('Количество членов ряда = ');
ReadLn (m);
s := 0.5;
n := 1;
for i := 2 to m do begin
s := s + n / (i * 2);
n := -n;
end;
WriteLn ('S = ', s :20 :20);
ReadLn;
end.