Вычислить значение суммы - Pascal ABC (14601)

Формулировка задачи:

По условию нужно вычислить:
program primer;
var
  k,i:integer;
  s:real;
begin
  write('Введите значение k:');
  readln(k);
  write('Введите значение i:');
  readln(i);
  k:=0;
  i:=0;
   for k:=1 to 10 do
    begin
     s:=exp(3*ln(k));
   for i:=1 to 15 do
    begin
     s:=sqr(k-i);
  end;
  end;
  writeln(' s=',s);
end.

Код к задаче: «Вычислить значение суммы - Pascal ABC (14601)»

textual
program primer;
var
  k,i:integer;
  s,s1,s2:real;
begin
  write('Введите значение k:');
  readln(k);
  write('Введите значение i:');
  readln(i);
  k:=0;
  i:=0;
   for k:=1 to 10 do
    begin
     s1:=exp(3*ln(k));
     s2:=0;
     for i:=1 to 15 do
       begin
         s2:=s2 + sqr(k-i);
     end;
     s:= s + s1*s2;
 
  end;
  writeln(' s=',s);
end.

9   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ