Напишите на паскале игру «лотерея» без использования процедуры.1)программа пользователя и просит его ввести любое целое семизначное число.2)программа разбивает введённое пользователем число на 7 цифр, например, если пользователь ввёл число 1735284, то первая цифра – 1, вторая – 7 и т.д.3)затем программа генерирует своё случайное семизначное число при процедуры random.4)аналогично пункту 2 программа разбивает на цифры своё сгенерированное число.5)программа сравнивает первую цифру числа пользователя с первой цифрой своего числа, вторую цифру со второй и т.д…6)если пользователь угадал 0 цифр, программа должна вывести сообщение «ваш выигрыш 0 рублей! », если угадал 1 цифру – выигрыш 1 рубль, если угадал 2 цифры – выигрыш 10 рублей, если угадал 3 цифры – выигрыш 100 рублей и т.д. 7)если пользователь угадал все 7 цифр (то есть полностью угадал число), то выигрыш – миллион рублей.8)программа выводит своё сгенерированное число, чтобы пользователь убедился в честности лотереи.
Ответы
Программа шифровки: data "ауоыэяюёие" data "бвгджзклмнпрстфхцчшщ" data "ъйь" dim s10 as string, s20 as string, s3 as string dim i as integer dim s as string, t as string cls read s10, s20, s3 randomize timer input "введите фразу: ", s t = "" for i = 1 to len(s) t = t + mid$(s, i, 1) t = t + mid$(s10, int(10 * rnd + 1), 1) t = t + mid$(s20, int(20 * rnd + 1), 1) t = t + mid$(s3, int(3 * rnd + 1), 1) next i print t end программа дешифровки: dim s as string, t as string, i as integer cls input "введите фразу: ", s t = "" for i = 1 to len(s) step 4 t = t + mid$(s, i, 1) next i print t end
Программа на qbasic 7.01 dim a(20) s = 0 for i = 1 to 20 input a(i) s = s + a(i) next i s = s / 20 for i = 1 to 20 if a(i) < 0 then a(i) = s print a(i); " "; next i print end тестовое решение: ? 5 ? 8 ? -3 ? 7 ? 11 ? -12 ? 6 ? 0 ? -13 ? 9 ? 11 ? 0 ? 7 ? -4 ? 1 ? 9 ? 4 ? 5 ? -11 ? 3 5 8 2.15 7 11 2.15 6 0 2.15 9 11 0 7 2.15 1 9 4 5 2.15 3 чтобы продолжить, нажмите любую клавишу
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Дан алгоритм в виде блок-схемы.запишите его на алгоритмическом языке.
Автор: ilukianienko458
Запишите числоримскими цифрами а)145 б)473 в)2048
Автор: ПодлеснаяМакарова1883
