Число називається "досконалим",якщо воно дорівнює сумі всіх додатних дільників,окрім самого себе (наприклад,6=1+2+3).визначіть "досконалі" числа в першій тисячі.
{совершенные числа} function sovr(var n: integer): boolean; var i,s: integer; begin s:=1; for i:=2 to (n div 2) do if (n mod i)=0 then s:=s+i; if (s>1) and (s=n) then Result:=true else Result:=false; end; {основная программа} var i: integer; begin for i:=1 to 1000 do if sovr(i) then writeln('совершенное число: ',i); end.
Если лень перебирать вручную, можно воспользоваться программой
var k,l,r,x,f:integer; begin f := 3001; l := 0; r := 65534; x := (l + r) div 2; k := 1; while (x <> f) and (l < r) do begin writeln(k,' ',l,' ',r,' ',x); k := k + 1; if f < x then r := x - 1 else l := x + 1; x := (l + r) div 2 end; writeln(k,' ',l,' ',r,' ',x); end.
1)Назовите систему, в которой для записи любых чисел используется всего один символ? В) Унарная;
2)Устройство, обеспечивающее обмен информацией с контроллерами периферических устройств, называется: Г) PCI-шина.
3). Какой из тегов HTML рисует горизонтальную линию? hr
4) Какой из перечисленных языков программирования относится к низкоуровневым? Г) Assembler.
5)Файлы с расширением .cvs используют для хранения: Г) Изображений.
6)Файл размером 2000 Кбайт передаётся через некоторое соединение в течение 30 секунд. Определите размер файла (в Кбайт), который можно передать через это соединение за 12 секунд. Пропорция 2000Кбайт / 30с * 12с = 800Кбайт А) 800 Кбайт;
7)Переведите число 126 из десятичной системы счисления в двоичную систему счисления. А) 1111110;
8)Укажите, что в электронных таблицах не применяется в формулах для ссылки на другие ячейки: А) Гиперссылка;
function sovr(var n: integer): boolean;
var i,s: integer;
begin
s:=1;
for i:=2 to (n div 2) do
if (n mod i)=0 then s:=s+i;
if (s>1) and (s=n) then Result:=true
else Result:=false;
end;
{основная программа}
var i: integer;
begin
for i:=1 to 1000 do
if sovr(i) then writeln('совершенное число: ',i);
end.