Какие сможете решите вычислить сумму чисел: s=к+(к+1)+(к+2)+(к+3)+…+(к+n); (n

Var k,n,i,s: integer; beginreadln(k,n); for i: =0 to n do  s: =s+k+i; writeln(s)end.var k,n,i,s: integer; beginreadln(k,n); for i: =0 to n do  s: =s+k+i; writeln(s/(n+1))end.var r,n,i,p: integer; beginreadln(r,n); p: =1; for i: =0 to r do  p: =p*(n+i); writeln(p)end.var r,i,p,x: integer; beginreadln(r); x: =1; for i: =1 to r do  begin  x: =x*i;   p: =p+x;   end; writeln(p)end.var r,i,p,x: integer; beginreadln(r); p: =1; for i: =1 to r do  begin  x: =x+i;   p: =p*x;   end; writeln(p)end.var m,n,t,i: integer; beginreadln(t); writeln('n': 3,'m': 5); for i: =1 to (t div 2) do  begin  n: =i*2;   m: =sqr(n)-n;   writeln(n: 3,m: 5);   end; end.var    y,m,n,i: integer;     x: real; beginreadln(n,m); writeln('y': 3,'x': 10); for i: =1 to m do  begin  y: =n*i;   x: =sqr(y)*(sqr(y)-y)/y;   writeln(y: 3,x: 10);   end; end.

Var   n,i,k,d: integer; begin   write('количество чисел='); read(n);   k: =0;   writeln('вводите числа, после каждого числа нажимайте enter');   for i: =1 to n do begin       read(d);       if (d mod 3 = 0) and (d mod 10 = 5) then inc(k)   end;   writeln('количество чисел, удовлетворяющих условию, равно ',k) end. тестовое решение: количество чисел=8 вводите числа, после каждого числа нажимайте enter 537 125 5 35 999 3 1005 75 количество чисел, удовлетворяющих условию, равно 2

//pascalabc.net var   i,m: integer;   a: single; begin   randomize;   for i: =1 to 13 do begin       m: =random(5)+5;       a: =10*random-5;       writeln(m,a: 5: 0)   end end. тестовое решение: 9    -4 6      2 8    -3 8      4 8      4 6      4 6      5 9    -1 8    -2 7      2 8      0 5      2 7      2