На моем любимом бейсике Dim A() As Integer, i As Integer, k As Integer, N As Integer Randomize Print "N = "; : Input N ReDim A(N, N) For i = 1 To N For k = 1 To N A(i, k) = Int(Rnd(1)*10) + 1 ' Заполняем матрицу случайными числами от 1 до 10 Print A(i, k) & CHR(9); ' Выводим начальную матрицу через табуляцию Next k Print ' Переход на следующую строку вывода Next i Print : Print ' Опускаемся на 2 строки For i = 1 To N For k = 1 To N If k >= i Then A(i, k) = 1 ' Заполняем единицами нужную область Rem У области выше главной диагонали номер столбца больше строки Print A(i, k) & CHR(9); ' Выводим конечную матрицу через табуляцию Next k Print ' Переход на следующую строку вывода Next i End
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.2Dim A() As Integer, i As Integer, k As Integer, N As Integer
Randomize
Print "N = "; : Input N
ReDim A(N, N)
For i = 1 To N
For k = 1 To N
A(i, k) = Int(Rnd(1)*10) + 1 ' Заполняем матрицу случайными числами от 1 до 10
Print A(i, k) & CHR(9); ' Выводим начальную матрицу через табуляцию
Next k
Print ' Переход на следующую строку вывода
Next i
Print : Print ' Опускаемся на 2 строки
For i = 1 To N
For k = 1 To N
If k >= i Then A(i, k) = 1 ' Заполняем единицами нужную область
Rem У области выше главной диагонали номер столбца больше строки
Print A(i, k) & CHR(9); ' Выводим конечную матрицу через табуляцию
Next k
Print ' Переход на следующую строку вывода
Next i
End