Программисты, помогите пожалуйста, очень выручите. Нужен 8 вариант. P.s PascalAbc

Question

Программисты, помогите пожалуйста, очень выручите. Нужен 8 вариант.
P.s PascalAbc

---

Answer 1

Const
  ax:array[1..3] of real=(4.3,5,10);
var
  i,j,k:integer;
  x,y,s:real;
begin
  for k:=1 to 3 do begin
    x:=ax[k];
    y:=0;
    for i:=1 to 5 do begin
      s:=0;
      for j:=1 to 4 do s:=s+sin(j*x)+i;
      y:=y+s
      end;
    Writeln('x=',x:4:1,',  y=',y)
    end
end.
    
Результат
x= 4.3,  y=55.7440276711038
x= 5.0,  y=60.3014385266612
x=10.0,  y=60.6300283811237

Comments

Спасибо большое, сегодня покажу преподу, а там уже ясно будет)Выручил очень ☺

---

Спасибо тут обычно выражают кнопочкой с красным сердечком, чтобы не создавать модераторам лишнюю работу по удалению комментариев )))