Ответы на вопрос:
//pascalabc.net 3.2 сборка 1318 const gal=4,54609; var x: real; begin readln(x); writeln(x*gal); end. //2 var b1,q: real; n: integer; begin readln(b1,q,n); if (b1=0) or (q=0) then begin writeln('b1=0 or q=0'); exit; end else if q=1 then begin writeln('sum=',b1*n); writeln('bn=',b1); end else begin writeln('sum=',b1*(1-power(q,n))/(1-q)); writeln('bn=',b1*power(q,n-1)); end; end.
Популярно: Информатика
-
blazhenko6616.06.2021 08:12
-
Гугко10.11.2020 10:58
-
firadzo13.05.2022 07:32
-
АкадемеG15.06.2021 09:12
-
FarzEtdk13.03.2022 13:24
-
Katri192129.09.2022 13:34
-
Ирочка30003.05.2022 00:32
-
kartil08.02.2023 23:35
-
45df4525.05.2023 19:43
-
Sasha2007ad13.08.2022 01:33