SHARE
TWEET

Untitled

a guest Oct 18th, 2019 91 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. program four;
  2.  
  3. var
  4.   S : real;
  5.   n,i,k,m :integer;
  6.   temp1, temp2 : real;
  7.   a,x,y: array[0..255] of integer;
  8. begin
  9.   writeln('Введите n: ');
  10.   readln(n);
  11.   writeln('Введите m: ');
  12.   readln(m);
  13.   writeln('Введите числовую последовательность длинной ',n, ': ');
  14.   for i := 0 to n-1 do
  15.   begin
  16.     readln(a[i]);
  17.   end;
  18.   writeln('Введите числовую последовательность длинной ',n, ': ');
  19.   for i := 0 to n-1 do
  20.   begin
  21.     readln(x[i]);
  22.   end;
  23.   writeln('Введите числовую последовательность длинной ',m, ': ');
  24.   for i := 0 to m-1 do
  25.   begin
  26.     readln(y[i]);
  27.   end;
  28.  
  29.   temp1 := 0; temp2 := 0;
  30.   for i := 0 to n-1 do
  31.   begin
  32.     temp1 := temp1 + (a[i]*sqr(x[i]));
  33.   end;
  34.  
  35.   for k := 0 to m-1 do
  36.   begin
  37.     temp2 := temp2 + sqr(y[k]);
  38.   end;
  39.  
  40.   S := temp1/ln(temp2);
  41.   writeln(S);
  42. end.
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top