М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
ablyaev98
ablyaev98
30.10.2020 17:48 •  Информатика

Напишите программу, которая будет выводить на монитор сколько выпало орлов и решек во время подбрасывания монет 1000 раз

👇
Ответ:
voenngti
voenngti
30.10.2020

from random import randint

n=1000

x=0

r=0

o=0

for i in range(n):

x=randint(0,1)

if x==0:

r=r+1

else:

o=o+1

print(r," решек и ",o," орлов")


Напишите программу, которая будет выводить на монитор сколько выпало орлов и решек во время подбрасы
Напишите программу, которая будет выводить на монитор сколько выпало орлов и решек во время подбрасы
4,7(99 оценок)
Открыть все ответы
Ответ:
annagrits66
annagrits66
30.10.2020

Відповідь:

Адресация — осуществление ссылки (обращение) к устройству или элементу данных по его адресу; установление соответствия между множеством однотипных объектов и множеством их адресов; метод идентификации местоположения объекта. Простая (англ. flat addressing) — указание объекта с идентификатора или числа, не имеющего внутренней структуры. Расширенная (англ. extended addressing) — доступ к запоминающему устройству с адресным пространством, бо́льшим диапазоном адресов, предусмотренного форматом

Пояснення:

4,4(79 оценок)
Ответ:
Lizaveta9999
Lizaveta9999
30.10.2020

var  

  arr:array[1..1000] of integer;

  i,N:integer;

  max:integer;

begin

   max:=1;

   

   write('Укажите кол-во эл-ов - ');

   

   read(N);

   

   for i:=1 to N do//Присваивание и вывод массива

   begin

       arr[i]:=1+random(100);

       

       write(arr[i],'  ');

       

       if arr[i]>max then max:=arr[i];

   end;

   

   writeln;

   

   writeln('Максимальный эл-т - ',max);

   

   for i:=1 to N do//Увеличение чет. эл-ов

     begin

     if arr[i] mod 2=0 then arr[i]:=arr[i]+max;

     

     write(arr[i],'  ');

     end;

 

end.

Объяснение:

4,8(92 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ