Var
a: array[1..10] of integer;
i, p, s: integer;
begin
for i:=1 to 10 do
readln(a[i]);
p:=1; s:=0;
for i:=1 to 10 do
begin
p:=p*a[i];
inc(s, a[i]);
end;
writeln(s);
writeln(p);
<span>end.</span>
1)изображение
2) Текстовой документ
3) Видеозапись
4) видеозапись
5) Текстовый документ
1)
uses crt;
var m,p,s:real;
k,n:integer;
begin clrscr;
write('Вклад(N)руб.: ');readln(m);
write('Кол-во лет: ');readln(n);
write('Процент: ');readln(p);
k:=1;
s:=m;
for k:=1 to n do
s:=s+s/100*p;
writeln('s=',s);
readkey;
end.
Не могу понять условия 2) и 3).
2.
Подходят под № 2) и 4)
3.
<span>4) С:\Красная книги\Евразия\Россия\Ростения_степей.doc</span>
4/
<span>В ячейке B2
формула =D1</span><span>
</span>
//PascalABC.NET (версия 3.1, сборка 1196 от 09.03.2016)
//Наверное здесь опечатки 1+1/1+2+1/1+2+3+···+1/1+2+···n скорее всего имелось ввиду так:
//1+1/(1+2)+1/(1+2+3)+···+1/(1+2+···n)
var i,n:integer;
s,s1:real;
begin
readln(n);
s:=0;s1:=0;
for i:=1 to n do begin
s1:=s1+i;
s:=s+1/s1;
end;
writeln (s);
end.