Question

написать программу которая находит сумму и произведение чисел от 5 до 50 с шагом 5

Answer 1

var sum,pro,i:integer;
begin
    i:=5;
    sum:=0;
    pro:=1;
    while i<=50 do begin
        sum:=sum+i;
        pro:=pro*5;
        i:=i+5;
   end;
   writeln('Сумма = ',sum,', Произведение = ',pro); 
end.

Answer 2

Var s,i : Integer;

Answer 3

не туда написал )

Answer 4

Фура, произведение таких чисел не влезает в тип Integer.

Answer 5

К тому же у Вас не произведение чисел, а домножение на 5.

Answer 6

Проглядел... вместо 5 нужно было i поставить. Когда запускал выдало вполне адекватный ответ, потому про тип и не думал даже.

Answer 7

Var s,p : BigInteger;
  i : Integer;
Begin
  p:=1; s:=0;
  For i:=1 to 10 do
  Begin
    s:=s+i*5;
   p:=p*i*5;
  end;
  Writeln('Сумма: ',s);
  Writeln('Произведение: ',p);
end.