Напишите на паскале игру «лотерея». 1. программа пользователя и просит его ввести любое целое семизначное число. 2. программа разбивает введённое пользователем число на 7 цифр, например, если пользователь ввёл число 1735284, то первая цифра – 1, вторая – 7 и т.д. 3. затем программа генерирует своё случайное семизначное число при процедуры random. 4. аналогично пункту 2 программа разбивает на цифры своё сгенерированное число.

1вариант (с процедурой)

program raf105;

var

  a,b: array of integer;

  i,x: integer;

procedure divide7(x: integer; arr: array of integer);

begin

  arr[0]: = x div 1000000;

  arr[1]: = (x div 100000) mod 10;

  arr[2]: = (x div 10000) mod 10;

  arr[3]: = (x div 1000) mod 10;

  arr[4]: = (x div 100) mod 10;

  arr[5]: = (x div 10) mod 10;

  arr[6]: = x mod 10;

end;

begin

  setlength(a,7);

  setlength(b,7);

  writeln('добро в игру "лотерея"! ');

  write('введите семизначное число: ');

  readln(x);

  writeln;

  divide7(x,a);

  x: = random(1000000,9999999);

  divide7(x,b);

  write('введённые числа:       ');

  for i: =0 to 6 do

    write(a[i],' ');

writeln;

  write('сгенерированные числа: ');

    for i: =0 to 6 do

    write(b[i],' ');

end.

2 вариант (без процедуры)

program raf105;

var

  a,b: array[1..7] of integer;

  i,x: 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;

  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

Const   nn = 50; var   a: array[1..nn] of integer;   b: array[1..10] of integer; { для номеров минимальных четных }   n, i, km, min, max, t1, t2: integer; begin   randomize;   write('укажите количество элементов массива (не более 50): ');   readln(n);   writeln('исходный массив');   for i : = 1 to n do   begin       a[i] : = random(76) - 43;       write(a[i]: 4);   end;   writeln;   writeln('1. массив со сдвинутыми влево на 2 элементами');   t1 : = a[1]; t2 : = a[2];   for i : = 1 to n - 2 do   begin       a[i] : = a[i + 2];       write(a[i]: 4);   end;   a[n - 1] : = t1; a[n] : = t2;   writeln(a[n - 1]: 4, a[n]: 4);   writeln('2. минимальные четные элементы массива');   min : = 100;   for i : = 1 to n do       if (i mod 2 = 0) then           if min > a[i] then begin min : = a[i]; km : = 1; b[km] : = i end           else if min = a[i] then begin km : = km + 1; b[km] : = i end;   write('значение: ', min, ', индексы: ');   for i : = 1 to km do write(b[i]: 3);   writeln;   writeln('3. поменять местами максимальный и последний элементы массива');   max : = -100;   for i : = 1 to n do       if max < a[i] then begin max : = a[i]; b[1] : = i end;   t1 : = a[b[1]]; a[b[1]] : = a[n]; a[n] : = t1;   for i : = 1 to n do write(a[i]: 4);   writeln;   writeln('4. найти среднее арифметическое элементов массива');   t1 : = 0;   for i : = 1 to n do t1 : = t1 + a[i];   writeln('среднее арифметическое равно ', t1 / n) end. тестовое решение: укажите количество элементов массива (не более 50): 30 исходный массив   31 -41 -18 -42 -15 -10  -8 -18 -30  21  -6 -43 -32 -18 -30  26 -37  20  29  18  26  21  29  22 -23 -43  29  30 -41  -9 1. массив со сдвинутыми влево на 2 элементами   -18 -42 -15 -10  -8 -18 -30  21  -6 -43 -32 -18 -30  26 -37  20  29  18  26  21  29  22 -23 -43  29  30 -41  -9  31 -41 2. минимальные четные элементы массива значение: -43, индексы: 10 24 3. поменять местами максимальный и последний элементы массива   -18 -42 -15 -10  -8 -18 -30  21  -6 -43 -32 -18 -30  26 -37  20  29  18  26  21  29  22 -23 -43  29  30 -41  -9 -41  31 4. найти среднее арифметическое элементов массива среднее арифметическое равно -5.4

№1

program fff;

var a, b, c: integer;

begin

writeln('введите первое число');

readln(a);

b:=a+1;

c:=a+2;

writeln(a);

writeln(b);

writeln(c);

end.

№2

program fff;

var r, o, p: integer;

begin

writeln('введите длину ребра');

readln(r);

o:=r*r;

o:=r*o;

p:=r*r;

writeln('объем куба=',o);

writeln('площадь стороны=',p);

end.

№3

program fff;

var ch, a, b, c, su, pr: integer;

begin

writeln('введите трехзначное число');

read(ch);

a:= ch div 100;

b:=ch mod 10;

c:= ch div 10;

c:= c mod 10;

su:=a+b+c;

pr:=a*b*c;

writeln('сумма=',su);

writeln('произведение=',pr);

end.