Буду за подмогу по лабораторным и самостоятельным работам:
1)пользователь вводит целое положительное число m. найти наименьшее
натуральное число k, при котором сумма 1^2 + 2^2 + 3^2 + + k2 > m. вывести на экран таблицу значений сумм при всех k от 100 до 120.
2)числа пелля определяются так: первое число равно 1, второе равно 2,
каждое следующее равно a(n)=2·a(n-1)+a(n-2). составить программу, которая находит сумму первых k чисел пелля (k – задается пользователем)
3) составить программу, которая находит наименьшее из трёх целых чисел,
введенных пользователем. если таких чисел несколько, выдавать соответствующие сообщения.
4) пользователь вводит целые числа x и y. составить программу, которая
определяет, принадлежит ли точка с координатами (x,y) заштрихованной
области на рисунке.
var z:array[1..nx] of integer; i,j,n,m,d,s,s1,k:integer; sr:real;
begin
write ('Введите число элементов n');read(n);
for i:= 1 to n do begin
z[i]:= random(30)-5;
write(z[i]:3);
if z[i]=0 then m:=i;end;writeln;
if m > 0 then begin
for j:=1 to n do begin
if (j< m) and (z[j] mod 2 = 0) then s:= s + z[j];
if (j> m) and (z[j] mod 2 = 1) then begin s1:= s1 + z[j]; k:= k +1; end;end;end
else
begin
writeln;
for i:=1 to n do begin
for j:=2 to n do begin
if z[j] > z[j-1] then begind:=z[j-1]; z[j-1]:=z[j]; z[j]:= d;end;end;
end;end;writeln;
sr:= s1 /k;
if m > 0 then begin
writeln('сумму нечетных чисел от последнего нулевого значения до Z[N]', s:6);
write('среднее арифметическое четных чисел, находящихся в массиве до последнего нуля ', sr:6:3);
end
else
for j:=1 to n do
write(z[j]:3);end.