Не знаю, есть ли в PascalABC для этого какие-либо особые инструменты (давно уже на нем не кодил), но могу привести общие для любого языка программирования.
Пусть есть двумерный массив с размерами
- кол-во столбцов и строк соответственно.
1) Вручную
Не самый лучший вариант с ростом кол-ва элементов
2) Вложенные циклы for
Первый перебираем от 0 до N-1 (переменная j)
Второй, вложенный в первый, перебираем от 0 до M-1(переменная i)
Внутри - условие: если (i == M-j-1), то ставим 1, иначе - 0.
Intel - это компания. Celeron - это продукт компании Intel (R).
1. Когда переходишь дорогу нужно с лезать с велосипеда. 2. ехать там только где можно.3. не ехать по дороге.4. когда едешь ночью на велосипеде то одевай одежду которая светиться от света фар.5.ехать с зашитами.
Все или еще?
Чтобы:звонить родным,общаться,играть в мобильные игры,читать новости,проверять информацию
program sasa;
function stepenj (val:integer):integer;
var inp,i,tmp:integer;
begin
tmp:=val;
Result:=1;
Writeln ('Vvedi stepenj');
Readln (inp);
for i:=1 to inp do
Result:=Result*tmp;
Writeln (Result);
end;