Дан массив 3x3 из целых чисел.найти сумму элементов главной диагонали.

begin

 var a := MatrRandom(3, 3, -99, 99);

 a.Println(4);

 Writeln(4 * a.ColCount * '-');

 a.ElementsWithIndexes.Where(t -> t[1] = t[2]).Sum(t -> t[0]).Println

end.

Программа выведет число 160.

Записать условие задачи можно например так: увеличивать некоторое целое число на 1 до тех пор, пока оно не разделится на 16 без остатка.

Объяснение:

Эта программа увеличивает целое число m на 1 до тех пор, пока остаток от деления его на 16 не равен 0.

Дано целое число m.

Ему присвоено первоначальное значение = 154.

Затем выполняется цикл:

пока (остаток от деления m на 16 ≠ 0) выполнять

m увеличить на 1.

Как только в результате циклического увеличения числа m на 1 получится число, которое без остатка делится на 16, цикл заканчивает свою работу и выполняется следующая команда программы:

Записать (‘M= ’, m); - вывод результата на экран.

В результате работы программы будет выведено число 160.

Записать условие задачи можно например так:

увеличивать некоторое целое число на 1 до тех пор, пока оно не разделится на 16 без остатка.

Программа выведет число 160.

Записать условие задачи можно например так: увеличивать некоторое целое число на 1 до тех пор, пока оно не разделится на 16 без остатка.

Объяснение:

Эта программа увеличивает целое число m на 1 до тех пор, пока остаток от деления его на 16 не равен 0.

Дано целое число m.

Ему присвоено первоначальное значение = 154.

Затем выполняется цикл:

пока (остаток от деления m на 16 ≠ 0) выполнять

m увеличить на 1.

Как только в результате циклического увеличения числа m на 1 получится число, которое без остатка делится на 16, цикл заканчивает свою работу и выполняется следующая команда программы:

Записать (‘M= ’, m); - вывод результата на экран.

В результате работы программы будет выведено число 160.

Записать условие задачи можно например так:

увеличивать некоторое целое число на 1 до тех пор, пока оно не разделится на 16 без остатка.