ответ:var
n, i: word;
sum: real;
begin
write ('n = '); readln (n);
sum := 0;
for i := 1 to n do
sum := sum + 1/(i*i);
writeln (sum:6:5);
readln
end.
gene 16/06/2017
a(a-1)(a-2)(a-3)...(a-n)
var
a,n,i: integer;
mult: longint;
begin
write('Введите a: ');
readln(a);
write('Введите n: ');
readln(n);
mult := a;
for i:=1 to n do
mult := mult * (a - i);
writeln(mult);
end.
1/a + 1/(a+1)+...+1/(a+n)
var
a,n,i: integer;
sum: real;
begin
write('Введите a: ');
readln(a);
write('Введите n: ');
readln(n);
sum := 0;
for i:=0 to n do
sum := sum + 1/(a + i);
writeln(sum:5:2);
end.
Объяснение:
var
a : array [1..10] of integer;
i, z : integer;
begin
randomize;
writeln('Исходный массив:');
for i := 1 to 10 do begin
a[i] := random(100);
z := random(2);
if z<1 then
a[i] := -a[i];
write(a[i], ' ')
end;
writeln();
writeln('Модифицированный массив :');
for i := 1 to 10 do begin
if a[i]<0 then a[i] :=0;
write(a[i], ' ');
end;
end.