Напишите на паскале игру «лотерея» без использования процедуры.1)программа пользователя и просит его ввести любое целое семизначное число.2)программа разбивает введённое пользователем число на 7 цифр, например, если пользователь ввёл число 1735284, то первая цифра – 1, вторая – 7 и т.д.3)затем программа генерирует своё случайное семизначное число при процедуры random.4)аналогично пункту 2 программа разбивает на цифры своё сгенерированное число.5)программа сравнивает первую цифру числа пользователя с первой цифрой своего числа, вторую цифру со второй и т.д…6)если пользователь угадал 0 цифр, программа должна вывести сообщение «ваш выигрыш 0 рублей! », если угадал 1 цифру – выигрыш 1 рубль, если угадал 2 цифры – выигрыш 10 рублей, если угадал 3 цифры – выигрыш 100 рублей и т.д. 7)если пользователь угадал все 7 цифр (то есть полностью угадал число), то выигрыш – миллион рублей.8)программа выводит своё сгенерированное число, чтобы пользователь убедился в честности лотереи.
ulana207
2
27.05.2019 21:07
3
Другие вопросы по теме Информатика
buh64
18.04.2020 17:16
nikita2003201711
10.06.2019 08:40
Kristina2003star1
10.06.2019 08:40
ерикос
10.06.2019 08:40
щувовтслалтв
10.06.2019 08:40
sochiru2014
15.08.2019 17:10
lesa18
15.08.2019 17:10
Популярные вопросы
- решить задачу по физике для 10 класса. ...
1 - Які з цих сполук мають кислотні властивості а)ca3(po4)2б)fe2o3...
2 - У чому вбачаєте конфлікт: натовпу, масової свідомості і інтелекту,...
3 - 4-класс упр 4 Кто болше? Стр 61 Состав словосочетания по образцу...
2 - Для виготовлення розчину змішали 115 г води та 75 г солі. Обчислити...
2 - Можете подсказать венн диаграмма по жаратылыстану 5 класс .131стр...
3 - Дайте Характеристику Голубя Хмеля в рассказе Сердце турмана...
1 - Ходильные конечности животных при к перемещению в среде 1) водной...
2 - Чому найвищі показники щільності населення мають країни Східної...
2 - 6. Складіть рівняння можливих реакцій між такими речовинами:...
2
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 <> 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