ответ: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.
Объяснение:
1)
a нет
b нет
c нет
2)
1строковый тип
2целый тип (INTEGER)
3вещественный тип
3)
1- 30 -46
2- 30 -46 -0.126 15.003
3- 'g'
4- ‘солнце’ '55' 'g'
5- 30 -46