Ответы на вопрос:
Var x: real; function f (p: real): real; begin f: =(sqr (p) - 7*p)/12 end; begin write ('введите x: '); readln (x); write ( f(x) ); end.
Объяснение:
uses GraphABC;
begin
line(0,0,640,240);
line(45,0,640,240);
line(89,0,640,240);
line(132,0,640,240);
line(176,0,640,240);
line(219,0,640,240);
line(263,0,640,240);
line(306,0,640,240);
line(350,0,640,240);
line(393,0,640,240);
line(437,0,640,240);
line(480,0,640,240);
end.
uses GraphABC;
begin
line(0,0,640,0);
line(0,47,640,47);
line(0,94,640,94);
line(0,141,640,141);
line(0,188,640,188);
line(0,235,640,235);
line(0,282,640,282);
line(0,329,640,329);
line(0,376,640,376);
line(0,423,640,423);
line(0,470,640,470);
end.
Популярно: Информатика
-
ВоржеваСоня26.03.2022 18:09
-
Про100zvezda15.01.2021 15:20
-
Самозванко15.07.2020 05:38
-
LilNooqas22.05.2023 16:11
-
tdtwdgtduqgcggggc19.05.2020 17:51
-
DomenicAn20.10.2022 14:18
-
Milana00000011101.01.2022 05:00
-
Про100Володя31.12.2021 13:10
-
lox5327.01.2021 15:31
-
ддииммоонн13.09.2022 02:11