Question

Помогите пожалуйста составить программы
1. Вводтся с клавиатуры 8 чисел. Подсчитать общую сумму, произведение положительных чисел и кол-во отрицательных
2. Высчитать S=5+5,5+6+...+n
n-с клавиатуры (натуральное)
3. Дано n-натуральное. Вычислить y=2*4*6*...*2n

Answer 1

1)
program p1;
var a,k,n,i,s:longint;
begin
 k:=0;
 n:=1;
 s:=0;
 for i:=1 to 8 do
  begin
   read(a);
   s:=s+a;
   if a>0
    then n:=n*a
    else k:=k+1;
  end;
 writeln('Summa:',s,' Proizvedenie: ',n,' Kolichestvo: ',k);
 readln;
 readln
end.
2)
program p2;
var n,i:longint;
s:real;
begin
 write('Write n: ');readln(n);
 s:=5;
 for i:=6 to n do
  s:=s+i-0.5+i;
 writeln(s:0:1);
 readln
end.
3)
program p3;var n,i,s:longint;
begin
 write('Write n: ');readln(n);
 s:=2;
 for i:=2 to n do
  s:=s*i*2;
 writeln(s);
 readln
end.

Answer 2

Спасибо большое