Задача

[Kirill2017gh]

Помогите составить программу для этого выражения, пожалуйста в Lazarus

Вычислить значения функции с использованием вложенных операторов цикла for...to...do. Проект – консольное приложение.

[newerow1989]

var a,c:integer;
    t,s:real;
begin
   t:=1;
   For a:=1 to 5 do
   begin
      s:=0;
      For c:=1 to 10 do
         s:=s+Ln(a*c);
      t:=t*s;
   end;
   Writeln(t:5:5);
   Readln;
end.

[Kirill2017gh]

У меня там еще в условии значения a и c есть
a = 2,8 ; c =1,8

[p51x]

Тогда проверяйте условие, ибо в такой постановке оно не имеет смысла. Либо a,c параметры, либо это просто логарифм от числа и значки суммы и произведения вообще дозвездеца.

[Kirill2017gh]

Там вот как

Мой под цифрой 4 в правом солбце

[newerow1989]

Решение 1 задачи:

const a=2.8;
      c=1.8;
var z:real;
    k:integer;
begin
   z:=0;
   For k:=1 to 18 do
      z:=z+Cos(a*k)+Sin(c);
   Writeln(z:5:5);
   Readln;
end.

Решение 2 задачи: см. выше

[p51x]

Так это для первой задачи. Там суммирование/произведение идет по другому параметру и это имеет смысл.