Ответы на вопрос:
var a,s,an: real;
i,n: integer;
begin
read(a,n);
an: =1;
for i : = 0 to (n+1) do
s: =s+an;
an: =an*(-a);
end;
writeln(s);
end.
Популярно: Информатика
-
лунтик7230.03.2022 23:06
-
seperpro16.01.2023 03:04
-
gbn2r5615.11.2022 03:31
-
помогитесдомашкой327.10.2020 02:22
-
vickatrasyuk02.03.2020 00:18
-
vipborisov20001.01.2021 23:00
-
aya12119.09.2020 05:32
-
Ксееее19.10.2022 12:34
-
AkimMen17.09.2022 11:21
-
pollyholly12304.02.2022 09:56