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

  1. По условию нужно вычислить:


textual

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

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



Похожие ответы
  1. Вычислить сумму ряда

  1. Помогите пожалуйста решить задачу: дано целое число. Вывести на экран значение наименьшей его цифры.

  1. Ввести трехзначное число .Вычислить корень квадратный второй цифры

  1. Заданы три квадратных уравнения: ax2 +bx+c=0, dx2 +fx+r=0, px2 +qx+k=0. Найти минимальное значение среди корней этих уравнений.

  1. Написать программу, которая по введенному значению аргумента вычисляет значение функции, заданной в виде графика.

  1. Помогите решить, пожалуйста Вычислить y=tg(x+2)+ctg^2x(ctg(x+1)-tgx), при х=30 градусов, оформив в виде функций вычисление тангенса и котангенса.

  1. Нужно написать программу, в которой пользователь вводит альфа(alpha), а программа бы считывала z1=cos в квадрате от разности ((3/8)*pi-(alpha/4))-cos в квадрате от суммы ((11/8)*pi+(alpha/4)) z2=(корень из 2-х/2)*sin от дроби (alpha/2)

  1. Вычислить значение выражения. При этом найти область определения функций и обеспечить необходимую реакцию программы на некорректные ситуации.

  1. Ввести a>=1. Найти значение какого из выражений больше: 1/а чи sin(а). Проверьте пожалуйста.