Var n,i:integer; f:longint; s:real;
begin
write('n = ');
readln(n);
f:=1; s:=2;
for i:=2 to n do
begin
f:=f*i;
s:=s+1/f;
end;
writeln('s = ',s);
end.
Пример:
n = 10
s = 2.71828180114638
По данному запросу найдутся абсолютно все сайты (знак | в запросе - или).
350+500+200−5−5−(20-5)−(10-5)−(50-5)=975
Объяснение: при сложении 350+500+200 мы получаем сумму всех 3 кругов по отдельности. При этом, при подсчете общего количества сайтов, в данной сумме значение центрального сегмента у нас утроено, а тех трех сегментов с которыми центральный имеет общую сторону, удвоено. Поэтому мы 2 раза отнимаем 5 и по 1 разу отнимаем разность 50 и 5, 20 и 5, 10 и 5.
Ответ: 975
1)Это с помощью while
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
while i<p do
begin
c:=c * a;
inc(i);
end;
writeln(c);
readln;
end.
2) Это с помощью repeat
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
repeat
c:=c * a;
inc(i);
until i=p;
writeln(c);
readln;
end.
3) Это с помощью for
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1;
for i:=1 to p do
c:=c * a;
writeln(c);
readln;
end.
Вид списка-Раскрывающийся