Var
i, n: integer;
a, s: real;
begin
readln(n);
a := 1;
s := a;
for i := 2 to n do
begin
a := a * -(i - 1) / i;
s := s + a;
end;
writeln(s:10:6);
end.
Var
a:longint;
begin
readln(a);
writeln(a×a×a);
end;
Все отдельно посчитал но без таблицы, сам(а) нарисуешь все посчитал
Ещё 19 рублей прибавь к итоговой сумме и к консервам ещё 250г и их цене
Ответ 3, очевидно же, по отчеству (имя отца)
var
a,b,i,S:integer;
x: array[1..100] of integer;
begin
for i:=1 to 31 do
begin
x[i]:=random(1001);
write(x[i]:4);
end;
writeln;
readln(S);
writeln;
for i:=1 to 31 do
begin
if x[i]>S then
write(i:4);
end;
end.