function summdel(x:integer):integer; //результат - сумма делителей х var k,sum:integer; begin sum:=0; for k := 1 to x div 2 + 1 do if x mod k = 0 then sum:= sum+k; summdel:=sum; end;
begin writeln('Введите границы a,b '); readln(a,b); maxsumm := 1; max := 1; for i := a to b do begin if summdel(i) > maxsumm then begin maxsumm:= summdel(i); max := i; end; end; writeLn('Максимальная сумма делителей - ', maxsumm, ' число - ',max) end.
1) Материнская плата, процессор, оперативная память, видеокарта.
2) Для временного хранения информации при загрузке и работе компьютера.
3)СD-R и CD-RW.
4)Сканер.
5) Внешние винчестеры.
6)Портативный, карманный.
7) Локальные, глобальные.
8) Шина, кольцо, звезда.
9) Совокупность программных систем.
10) Программа для работы с устройствами компьютера.
11)Специальное устройство для соединения нескольких компьютеров в локальную сеть.
12) Операционная система.
13) Загрузочные.
15) Локальной компьютерной сетью.
16) Совокупность локальных сетей и компьютеров, расположенных на больших расстояниях и соединенные в единую систему.
17) IP-адрес.
18) Преобразование двоичного кода в аналоговый сигнал и обратно.