t89633261566polypony
19.11.2021 05:24

Добавьте в эту игру уровниfrom random import randoma = round(random() * 50)b = 1print("компьютер загадал число. отгадайте его. у вас 10 попыток")while b < = 10: c = int(input(str(b) + '-я попытка: ')) if c > a: print('много') elif c < a: print('мало') else: print('вы угадали с %d-й попытки' % b) break b += 1else: print('вы исчерпали 10 попыток. было загадано', a)

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
bobkovaolesya
01.09.2020 20:32
Завдання  Запиши послідовність номерів карток, які задають порядок:Варіант 1а) завершення роботи за комп'ютеромб) запуску програми на виконання
Варіант 2а) підготовки комп’ютера до роботиб) коректного завершення роботи з програмою
Завдання 3. Дії з о б’єктам и  Робочого столуУ комп’ютерному класі за комп’ютерами з різними номерами сидять Світлана,Марина,Роман та Сергій. Відомо, що:- Світлана виконала затримку над деяким об’єктом:- Марина один раз клацнула лівою кнопкою миші;- Роман не встиг нічого зробити;- Сергій виконав дві дії з мишею.
0,0(0 оценок)
Ответ:
samirsamir21ozrrps
06.09.2021 07:19
PascalABC

var  mas: array[-1000..1000] of integer;  i, min, max, n, razn: integer;begin
  //ввод количества элементов массива  readln(n);  //ввод массива и его вывод на экран  randomize;  for i := 1 to n do   begin    mas[i] := 500 - random(1000) - 1;    write(mas[i]:5);    if (i mod 10 = 0) then writeln;  end;  //поиск минимума и максимума  min := mas[1];  max := mas[1];  for i := 2 to n do   begin    if (mas[i] < min) then min := mas[i];    if (mas[i] > max) then max := mas[i];  end;  //нахождение разности  razn := max - min;  writeln;  writeln('Разность = ',razn);end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота