Не знаю, есть ли в PascalABC для этого какие-либо особые инструменты (давно уже на нем не кодил), но могу привести общие для любого языка программирования.
Пусть есть двумерный массив с размерами
- кол-во столбцов и строк соответственно.
1) Вручную
Не самый лучший вариант с ростом кол-ва элементов
2) Вложенные циклы for
Первый перебираем от 0 до N-1 (переменная j)
Второй, вложенный в первый, перебираем от 0 до M-1(переменная i)
Внутри - условие: если (i == M-j-1), то ставим 1, иначе - 0.
Копмьютерный вирус - это разновидность вредоносной программы, способная к самораспространению.
var a,i:integer;
begin
write('Введите число: ');
readln(a);
for i:=1 to 7 do
writeln(a,' * ',2*i+1,' = ',a*(2*i+1));
end.
Результат:
Введите число: 4
<span>4 * 3 = 12
4 * 5 = 20
4 * 7 = 28
4 * 9 = 36
4 * 11 = 44
4 * 13 = 52
4 * 15 = 60</span>