Вычислить сумму элементов массива, порядковые номера которых с значениями элементов.
209
325
Ответы на вопрос:
Function st(o: real; p: integer): real; begin result: =1; for p: = 1 to p do result: =result*o end; var x: real; begin write('x = '); readln(x); if st(x,3)-2*st(x,2)-3*x+6 = 0 then write(x,' - корень уравнения') else writeln(x,' не является кормен уравнения') end.
Популярно: Информатика
-
Nemsix22.02.2021 23:04
-
sonyaway1222.03.2021 17:26
-
disimasai08.06.2021 16:45
-
ddbbqq12.01.2020 12:13
-
0Kirill10481014.03.2021 21:18
-
romamuver18.06.2020 15:21
-
природа4506.11.2022 16:35
-
alexandraselivanova27.07.2020 09:48
-
FUKCтическая05.06.2020 16:14
-
рф77730.07.2020 03:31