Ответы на вопрос:
Var x,s: real; n: integer; function sum(a: real; k: integer): real; begin if k> 1 then sum: =sum(a,k-1)+a/k; end; begin writeln('x = '); readln(x); writeln('n = '); readln(n); writeln('sum = ',sum(x,n)); end. пример: x = 6n = 4sum = 6.5
Популярно: Информатика
-
marivenkova08.08.2022 08:19
-
krioss08.09.2022 01:48
-
AnnaVorob199926.10.2020 16:25
-
raistarasenko05.05.2020 14:05
-
dzhmulin08.08.2020 18:36
-
fafafafgaf626202.03.2021 02:29
-
Арти200421.01.2022 20:17
-
tsts8430.10.2021 01:04
-
Fdcsxdxdvrcfcr07.09.2021 04:13
-
temik26128.07.2021 23:04