Написать программу подсчета суммы вводимых элементов до первого отрицательно числа в...

Question

Написать программу подсчета суммы вводимых элементов до первого отрицательно числа в Pascal

Answer 1

//Pascal
var n, sum: integer;
begin
  sum := 0;
  while (n >= 0) do
  begin
    sum := sum + n;
    read(n);
  end;
  writeln(sum);
end.

Comments

Это с предусловием можно с послусловием

---

var n, sum: integer;
begin
sum := 0;
repeat
sum := sum + n;
read(n);
until n < 0;
writeln(sum);
end.

---

В следующий раз пишите в условии

---

Большое спасибо,спасли

---

Пожалуйста