Ответы на вопрос:
Var x,i: integer; rez: real; begin write ('введите x: '); readln (x); i: =1; rez: =0; while i< =11 do begin rez: =rez+power(x,i)/i; i: =i+2; end; writeln ('rez = ',rez); end. введите x: 2 rez = 272.423088023088
Var x,y,a,b,h: real; i: integer; beginreadln(a,b,h); x: =a-h; for i: =1 to round((b-a)/h)+1 do begin x: =x+h; y: =2*x*x*x-0.5*x+5; writeln(x: 4: 1,' ',y: 6: 3); end; end.пример: -2 2 0.5-2.0 -10.000-1.5 -1.000-1.0 3.500-0.5 5.000 0.0 5.000 0.5 5.000 1.0 6.500 1.5 11.000 2.0 20.000
Популярно: Информатика
-
marekatyan09.01.2022 08:48
-
Vzorr06.08.2020 00:25
-
dedov0530.05.2022 21:09
-
tsey12kirill28.02.2023 21:35
-
HellyHopta21.06.2023 20:54
-
Rımma701.12.2020 11:40
-
MagicalBiology31.08.2021 16:43
-
kuzmina999914.06.2020 23:54
-
Dashasvi02.05.2020 10:58
-
sabah201706.06.2022 07:33