Ответы на вопрос:
Var x,y: real; i: integer; a,b: array [2..8] of real; begin x: =2; for i: = 2 to 8 do begin y: =(1-x)+2.5*(x*x*x)+(x*x*x*x); a[i]: =a[i]+x; b[i]: =b[i]+y; x: =x+1.5; end; write('x '); for i: = 2 to 8 do write(a[i],' '); writeln(''); write('y '); for i: = 2 to 8 do write(b[i],' '); end.
Популярно: Информатика
-
NOKANplay28.04.2020 07:50
-
1ЛиКа603.11.2021 06:54
-
janat850921.08.2022 20:45
-
Кряквочка16.04.2022 03:48
-
ДарьяДуда28.05.2023 22:21
-
VeronicaOgne28.07.2021 19:30
-
Юся180923.05.2020 20:43
-
Oles111522.10.2021 13:32
-
ffghh1gfdd29.03.2020 08:46
-
zcneltyn31.08.2022 18:33