Ответы на вопрос:
Послухай и напиши что в голову приходит ну смотри начало торжественное совсем противоположное названию и т д
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.
Популярно: Музыка
-
anognev16.02.2023 10:25
-
Albinnabel16.03.2021 00:58
-
Викарайс19.10.2020 13:05
-
knopendui23.08.2021 07:23
-
умник2282282222227.07.2022 17:41
-
SVIATOSLAV300015.12.2021 02:45
-
Daleton08.11.2021 14:23
-
zarrrubinka18.12.2021 16:22
-
743Slivka20.01.2023 00:00
-
8734873222.10.2022 03:26