Так как в задаче идет речь о матрице, то возможные варианты такой матрицы (исключаем 1х30 и 30х1): 2х15 3х10 5х6 Далее повторения (меняются столбцы и строки) 6х5 10х3 15х2 Попробуем написать программу, которая создает нужную матрицу по первому числу (количество строк) и заполняет ее:
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016) var a:array[,] of integer; n,m,i,j,k:integer; begin k:=1; write('Введите количество строк (одно число из 2,3,5,6,10,15) '); readln(n); m:=30 div n; a:=new integer[n,m]; for i:=0 to n-1 do begin for j:=0 to m-1 do begin a[i,j]:=k; k:=k+1; write(a[i,j]:3); end; writeln; end; end.
Строчка "program Умножение;" спорная т.к. некоторые компиляторы поддерживают кириллицу, например PascalABC, но лучше использовать английские буквы.
"var A, B, C: boolean;" boolean - это логический тип переменных True False, либо 0 1, для других чисел не подходит. Я остановился на типе "real", чтобы можно было вводить не только целые числа, но и дробные, например 2,5
После каждого оператора необходимо ставить ";", кроме того, что перед "end" там ставить не обязательно.
В паскале "=" используется как оператор сравнения, а оператор присваивания выглядит так: ":=", поэтому исправим тут ошибку "C = A * B"
Текст в "writeln()" пишется в одинарных кавычках, исправляем ошибку "writeln (Произведение введенных Вами чисел равно , C)"
И так вот готовая исправленная программа
Program multi; Var A,B,C:real; Begin Read(A,B); C:=A*B; Writeln('Произведение введенных Вами чисел равно ',C) End.
2х15
3х10
5х6
Далее повторения (меняются столбцы и строки)
6х5
10х3
15х2
Попробуем написать программу, которая создает нужную матрицу по первому числу (количество строк) и заполняет ее:
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
var
a:array[,] of integer;
n,m,i,j,k:integer;
begin
k:=1;
write('Введите количество строк (одно число из 2,3,5,6,10,15) ');
readln(n); m:=30 div n;
a:=new integer[n,m];
for i:=0 to n-1 do begin
for j:=0 to m-1 do begin
a[i,j]:=k; k:=k+1;
write(a[i,j]:3);
end;
writeln;
end;
end.
Тест №1
Введите количество строк 5
1 2 3 4 5 6
7 8 9 10 11 12
13 14 15 16 17 18
19 20 21 22 23 24
25 26 27 28 29 30
Тест №2
Введите количество строк 3
1 2 3 4 5 6 7 8 9 10
11 12 13 14 15 16 17 18 19 20
21 22 23 24 25 26 27 28 29 30
"var A, B, C: boolean;" boolean - это логический тип переменных True False, либо 0 1, для других чисел не подходит. Я остановился на типе "real", чтобы можно было вводить не только целые числа, но и дробные, например 2,5
После каждого оператора необходимо ставить ";", кроме того, что перед "end" там ставить не обязательно.
В паскале "=" используется как оператор сравнения, а оператор присваивания выглядит так: ":=", поэтому исправим тут ошибку
"C = A * B"
Текст в "writeln()" пишется в одинарных кавычках, исправляем ошибку "writeln (Произведение введенных Вами чисел равно , C)"
И так вот готовая исправленная программа
Program multi;
Var A,B,C:real;
Begin
Read(A,B);
C:=A*B;
Writeln('Произведение введенных Вами чисел равно ',C)
End.