===== PascalABC.NET =====
procedure MyFill(a: array[,] of integer);
begin
for var i := 0 to a.RowCount - 1 do
for var j := i to a.ColCount - 1 do
a[i, j] := j - i + 1
end;
begin
var a := MatrFill(6, 6, 0);
MyFill(a);
a.Println(2)
end.
1.Сканер 2. не знаю 3.Дисковод
Читаем N
считаем кол-во в каждом слою и выводим на экран
считаем кол-во всего и выводим на экран
идентификация
уточняющая, опознающая
распознает, классифицирует, отождествляет
помогает распознать нужную информацию
сопоставление
Ответ:
Добрый день!
Я не знаю Паскаль, но могу рассказать, что от Вас требуют.
Вы заводите функцию например rec
передаете в нее значение пременной А
внутри фунцкии выполняется: вызов той же функции от А - N. А также возвращается результат вызова этой функции
Также в начале функции вы проверяете, меньше ли это число, чем то, которое было изначально введено в N раз
Реализация на С
F(A,B)
{
if (A > B)
return F(A-N,B);
else
return A;
}
А в программе вызываем : F(N,N);