Найти сумму случайных чисел до тех пор пока не выпадет 0 каждая из случайных чисел...

Question

Найти сумму случайных чисел до тех пор пока не выпадет 0 каждая из случайных чисел вывести на экран

Comments

сумму всех случайных чисел?

Answer 1

Var a,b:shortint;

begin
  randomize;
  repeat
    a:=random(-16,16);
    b:=random(-16,16);
    write(a,' ',b, ', ')
  until (a=0) and (b=0)
end.

---

Comments

Спасибо огромное!