Напишите на Паскале игру «Лотерея».
1. Программа приветствует пользователя и просит его ввести любое целое семизначное число.
2. Программа разбивает введённое пользователем число на 7 цифр, например, если пользователь ввёл число 1735284, то первая цифра – 1, вторая – 7 и т.д.
3. Затем программа генерирует своё случайное семизначное число при помощи процедуры random.
4. Аналогично пункту 2 программа разбивает на цифры своё сгенерированное число.
Напишите на Паскале игру «Лотерея».
1. Программа приветствует пользователя и просит его ввести любое целое семизначное число.
2. Программа разбивает введённое пользователем число на 7 цифр, например, если пользователь ввёл число 1735284, то первая цифра – 1, вторая – 7 и т.д.
3. Затем программа генерирует своё случайное семизначное число при помощи процедуры random.
4. Аналогично пункту 2 программа разбивает на цифры своё сгенерированное число.
1. Программа приветствует пользователя и просит его ввести любое целое семизначное число.
2. Программа разбивает введённое пользователем число на 7 цифр, например, если пользователь ввёл число 1735284, то первая цифра – 1, вторая – 7 и т.д.
3. Затем программа генерирует своё случайное семизначное число при помощи процедуры random.
4. Аналогично пункту 2 программа разбивает на цифры своё сгенерированное число.
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Вот пример кода на Pascal:
program LotteryGame;var
userNumber, randomNumber, userDigit, randomDigit: array[1..7] of Integer;
i: Integer;
matchCount: Integer;
begin
randomize;
writeln('Добро пожаловать в игру Лотерея!');
writeln('Введите любое целое семизначное число: ');
readln(userNumber);
for i := 1 to 7 do
begin
userDigit[i] := userNumber mod 10;
userNumber := userNumber div 10;
randomNumber[i] := random(10); // генерируем случайную цифру от 0 до 9
end;
matchCount := 0;
writeln('Ваши числа: ');
for i := 7 downto 1 do
begin
write(userDigit[i], ' ');
if userDigit[i] = randomNumber[i] then
matchCount := matchCount + 1;
end;
writeln;
writeln('Вы угадали ', matchCount, ' цифр!');
end.
В этой программе пользователь вводит своё число, а затем программа генерирует случайное число. Затем они сравниваются по цифрам и выводится количество угаданных цифр.