Написал на c++ т,к синтаксис шарпа не знаю, можешь переделать под себя.
#include "pch.h"
#include <iostream>
using namespace std;
int main()
{
setlocale(LC_ALL, "rus");
int summa = 0;
int h;
int i = 1;
cout << "Введите h" << endl;
cin >> h;
for(i;summa<h;)
{
summa += i;
i++;
}
cout <<"Сумма= "<< summa << endl <<"Последнее слагаемое = "<< i - 1 << endl;
}
#include <iostream>
#include <cmath>
using namespace std;
int main() {
float a(-1),b(1),h,x1,x2,y1,y2,k,s(0);
int n(2);
do {
k=s; s=0;
for (int j=1; j<=n; j++) {
h=(b-a)/n;
x1=a+h*(j-1); x2=x1+h;
y1=x1*x1; y2=x2*x2;
s=s+(y1*h+y2*h)/2;
}
n++;
if (abs(s-k)<0.01) {
cout << "1" << endl;
break;
}
}
while(n>=0);
cout << s <<endl << n << endl;
return(0);
}
Если в паскале то вот
vara:array [1..30] of integer;i,s,k,n:integer;h:real;begins:=0;k:=0;writeln('введите количество чисел');read(n);randomize;for i:=1 to n do begina[i]:=random(100);write(a[i]:3);end;writeln();for i:=1 to n do beginif (a[i] mod 2=0) and (i mod 2=0) then begins:=s+a[i];k:=k+1;end;end;if k>1 then h:=s/k;writeln(h); if k=0 then begin writeln('таких чисел нет'); read; halt; end;<span>end.</span>
8)
var
f_tmp, f1, f, sum: integer;
i, n: byte;
begin
readln(n);
f_tmp := 0;
f1 := 1;
if n = 0 then sum := 0
else sum := 1;
for i := 2 to n do
begin
f := f1 + f_tmp;
sum := sum + f;
f_tmp := f1;
f1 := f
end;
writeln('Сумма ', n , ' чисел = ',sum);
readln;
end.
9)
const n = 5;
var
A: array [1 .. 10, 1 .. 10] of integer;
i, j, s, w, k, q: integer;
begin
for i := 1 to n do
for j := 1 to n do
begin
write('A[', j, ',', i, '] = ');
readln(A[j, i]);
end;
s := 0;
for i := 1 to n do s := s + A[1, i];
k := 1;
for i := 1 to n do
begin
w := 0; q := 0;
for j := 1 to n do
begin
w := w + A[j, i];
q := q + A[i, j];
end;
if (s <> w) or (q <> s) then
k := 0;
end;
if k = 0 then write('Квадрат не магический')
else write('Квадрат магический');
readln;
end.