Ответы на вопрос:
var b: array [1..1000] of real;
c: integer; d: real;
begin
writeln('vvedite n='); read(a);
d: =0;
for c: =1 to n do
if(c mod 2= 0) then d: =d+b[c];
b[n]: =d; writeln(b[n]); readln; readln;
end;
Популярно: Информатика
-
asaparova8016.08.2020 11:35
-
определение111.01.2022 05:08
-
catBoss00918.11.2021 21:18
-
lerabregneva18.12.2022 16:21
-
Самацвет03.04.2023 06:40
-
dpichuzhkina02.01.2021 12:45
-
ulagrac814.08.2022 11:39
-
rjulia06404.04.2023 04:03
-
Рюзаки113.11.2020 16:46
-
Lilifvg15.05.2022 20:24