Ответы на вопрос:
var a: array [1..13] of real; i: integer; q,s: real; begin s: =3; a[1]: =3; a[2]: =6; a[3]: =12; a[4]: =24; q: =a[2]/a[1]; for i: =2 to 13 do begin a[i]: =a[i-1]*q; s: =s+a[i]; end; writeln(s); end.
Популярно: Информатика
-
lisena12340924.01.2022 11:50
-
Сергій09876515.02.2022 05:31
-
СоедвалиеваСофия26.02.2022 09:17
-
ViShEnKalкрасная03.07.2020 20:05
-
vadi9635608.03.2020 05:36
-
IKristin18.10.2022 05:53
-
44447711.03.2020 21:14
-
ololeg126.12.2020 18:20
-
тошка1203.04.2021 08:54
-
Ekaterina234806.05.2021 18:57