Напишите на Паскале забаву Лотерея без использования процедуры.1)Программа приветствует
Напишите на Паскале забаву Лотерея без использования процедуры.
1)Программка приветствует юзера и просит его ввести любое целое семизначное число.
2)Программа разбивает введённое юзером число на 7 цифр, к примеру, если юзер ввёл число 1735284, то 1-ая цифра 1, 2-ая 7 и т.д.
3)Затем программка генерирует своё случайное семизначное число при поддержки процедуры random.
4)Аналогично пт 2 программка разбивает на цифры своё сгенерированное число.
5)Программка сопоставляет первую цифру числа юзера с первой цифрой собственного числа, вторую цифру со второй и т.д
6)Если юзер угадал 0 цифр, программка обязана вывести сообщение Ваш выигрыш 0 рублей!, если угадал 1 цифру выигрыш 1 рубль, если угадал 2 цифры выигрыш 10 рублей, если угадал 3 числа выигрыш 100 рублей и т.д.
7)Если пользователь угадал все 7 цифр (то есть полностью угадал число), то выигрыш миллион рублей.
8)Программка выводит своё сгенерированное число, чтоб юзер удостоверился в правдивости лотереи.
program raf105;
var
a,b: array[1..7] of integer;
i,x,win: integer;
begin
writeln('Благо пожаловать в забаву "Лотерея"!');
write('Введите семизначное число: ');
readln(x);
writeln;
a[1]:= x div 1000000;
a[2]:= (x div 100000) mod 10;
a[3]:= (x div 10000) mod 10;
a[4]:= (x div 1000) mod 10;
a[5]:= (x div 100) mod 10;
a[6]:= (x div 10) mod 10;
a[7]:= x mod 10;
x:= random(1000000,9999999);
b[1]:= x div 1000000;
b[2]:= (x div 100000) mod 10;
b[3]:= (x div 10000) mod 10;
b[4]:= (x div 1000) mod 10;
b[5]:= (x div 100) mod 10;
b[6]:= (x div 10) mod 10;
for i:=1 to 7 do
if a[i] = b[i]
then if win lt;gt; 0
then win:= win*10
else win:= 1;
writeln('Ваш выигрыш ',win,' руб.');
write('Введённые числа: ');
for i:=1 to 7 do
write(a[i],' ');
writeln;
write('Сгенерированные числа: ');
for i:=1 to 7 do
write(b[i],' ');
end.
PascalABC 3.4.2
-
Вопросы ответы
Статьи
Информатика
Статьи
Русский язык.
Геометрия.
Физика.
Русский язык.
Химия.
Математика.
География.
Литература.
Разные вопросы.
Математика.