Решение с использование длинной арифметики. var i, j, n, len, rem: integer; a: array[1..200] of byte; begin write('Введите число: '); read(n); len := 1; a[1] := 1; for i := n + 1 to 99 {100} do begin for j := 1 to len do begin rem := a[j] * i + rem; a[j] := rem mod 10; rem := rem div 10; end; while rem > 0 do begin inc(len); a[len] := rem mod 10; rem := rem div 10; end; end; writeln('Произведение чисел из интервала (', n, '; 100): '); for i := len downto 1 do write(a[i]); end. Пример работы программы: Введите число: 1 Произведение чисел из интервала (1; 100): 1948348720420644788695888257080283249381963823594360049498643927185579338215778728274424636079639781709574621897447185108592230400000000000000000000
Компьютерные сети – это системы компьютеров, объединенных каналами передачи данных, обеспечивающие эффективное предоставление различных информационно-вычислительных услуг пользователям посредством реализации удобного и надежного доступа к ресурсам сети.Информационные системы, использующие возможности компьютерных сетей, обеспечивают выполнение следующих задач:· Хранение и обработка данных· Организация доступа пользователей к данным· Передача данных и результатов обработки решения перечисленных задач обеспечивается:· Дистанционным доступом пользователей к аппаратным, программным и информационным ресурсам· Высокой надежностью системы· возможностью оперативного перераспределения нагрузки· специализацией отдельных узлов сети для решения определенного класса задач· решением сложных задач совместными усилиями нескольких узлов сети· возможностью осуществления оперативного контроля всех узлов сети
#define N 10
main() {
int arr[N];
char i,num;
srand(time(NULL));
for (i=0; i<N; i++) {
arr[i] = rand()%100 - 50;
printf("%d ", arr[i]);
}
printf("\n");
num = 0;
for (i=1; i < N; i++) {
if (abs(arr[i]) < abs(arr[num]))
num = i;
}
printf("%d\n", num+1);
}