Program n5;
var p: real;
i,n: integer;
begin
p:=1;
readln(n);
for i:=1 to n do p:=p*(2*i)/(2*i+1);
writeln(p);
end.
Program n1;
var sum,k,a: integer;
begin
readln(a);
sum:=0;
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) then
begin
k:=k+1;
sum:=sum+a;
end;
readln(a);
end;
if k=0 then write('NO') else write(sum/k);
end.
Program n2;
var k,a: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) and (a mod 4=0) then k:=k+1;
readln(a);
end;
write(k);
end.
5 итераций цикла for, на каждой значение переменной s увеличивается на 7: s = 7 + 7 + 7 + 7 + 7 = 35
Ответ:
var n,i,c,m,p:integer;
begin
m:=0;
p:=0;
writeln('Введите количество чисел.');
readln(n);
for i:=0 to n-1 do
begin
readln(c);
if c < 0 then m:=m+1
else if c = 0 then continue
else p:=p+1;
end;
if p < m then writeln('Отрицательных чисел больше, чем положительных.')
else if p > m then writeln('Положительных чисел больше, чем отрицательных.')
else writeln('Равное количество положительных и отрицательных чисел');
end.
Объяснение:
Переменные:
n - количество чисел, i - счетчик цикла for, c - считанное значение, m - счетчик отрицательных чисел, p - счетчик положительных чисел.
Считаем, что "0" - ни положительное, ни отрицательное число.
Введя данный код в турбо Паскаль был дан ответ: 51
Это уже зависит от пользователей сайта. Учитывая то, что люди готовы платить бешеные деньги за какие-то открытки и наклейки, сайт будет развиваться. Конечно же, если этих людей никто не вразумит. Еще одна проблема сайта - навязывание своих дурацких сервисов компании Мэйл ру. Возможно, в будущем другие социальные сети и коммуникаторы полностью вытеснят "одноклассники".