Агриппа
4 год назад
найти сумму случайных чисел до тех пор пока не выпадет 0 каждая из случайных чисел вывести на экран
ОТВЕТЫ
Arkadij
Oct 24, 2020
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.
begin
randomize;
repeat
a:=random(-16,16);
b:=random(-16,16);
write(a,' ',b, ', ')
until (a=0) and (b=0)
end.
- Спасибо огромное!
525
Смежные вопросы: