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

Milenadaw Milenadaw    3   15.09.2019 22:40    1

Ответы
лала123451 лала123451  07.10.2020 18:29
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.

Найти сумму случайных чисел до тех пор пока не выпадет 0 каждая из случайных чисел вывести на экран
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика