Ответы на вопрос:
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.
Популярно: Информатика
-
sashabayanov30.04.2023 15:41
-
ghtrwsd1813.02.2022 01:35
-
yanzabelina25.06.2020 01:42
-
Эндирионэля15.06.2023 11:14
-
mashashherbina12.10.2022 12:37
-
настёнканяш24.09.2020 05:21
-
Mykolaj808.04.2023 19:34
-
tigranchik11111129.12.2021 21:53
-
2a74130.06.2023 20:56
-
Timoxa56519.12.2022 09:08