с подмогою датчика случайных чисел получить 15 чисел среди которых 7

С помощью датчика случайных чисел получить 15 чисел среди которых 7 двоек и 8 троек.Помогите пожалуйста . напишите или на паскале либо на питоне

Задать свой вопрос
1 ответ

program raf105;

var a:array[1..15] of integer;

a2,a3,i:integer;

begin

repeat

 a2:=0;

 a3:=0;

 for i:=1 to 15 do

 begin

   a[i]:= random(2,3);

   if a[i]=2

     then a2:= a2+1

     else a3:= a3+1;

 end;

until (a2=7) and (a3=8);

write('Вывод: ');

for i:=1 to 15 do

write(a[i],' ');

end.

Язык программирования PascalABC

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт