Дан двумерный массив размером…

Question

Дан двумерный массив размером nn. Создать функцию которая находит факториал каждого элемента массива и заменяет исходный элемент на его факториал (значениефункции). В первой строке написано число n. (4! =1234) 3 2 24 5047 2 4 7 6 720 40320 3 6 8 2 24 120 2 4 5

Answer 1

43

feliks43

04 августа 2022

Program Task; Var a: Array [,] of LongInt; i, j, n, b, c: Integer; Begin Write ('n='); ReadLn (n); SetLength (a, n, n); For i: =0 To n — 1 Do Begin WriteLn ('Введите ', i+1, ' рядок массива (', n, ' чисел) через пробел'); For j: =0 To n — 1 Do Begin Read (a[i, j]); b: =a[i, j]; c: =1; While b > 0 Do Begin c: =c*b; b: =b — 1; End; a[i, j]: =c; End; End; WriteLn ('Результат: '); For i: =0 To n — 1 Do Begin For j: =0 To n — 1 Do Write (a[i, j], '); WriteLn; End; ReadLn; End.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: