?>
"&". Задача №4В таблице приведены запросы к поисковому серверу. Расположите номера за-просов в порядке возврастания количества страниц, которые найдет поиско-вый сервер по каждому запросу.Для обозначения логической операции "ИЛИ" используется символ "І", а длялогической операции "И" - символ1 барокко | классицизм | ампир2 барокко | классицизм & ампирВ классицизм & ампири барокко | классицизмЗадача №5В таблице приведены запросы к поисковому серверу. Расположитеномера запросов в порядке возврастания количества страниц, которые найдетпоисковый сервер по каждому запросу.Для обозначения логической операции "ИЛИ" используется символ "І", а длялогической операции "И" - символ "&".1канарейки | терьеры | содержание2канарейки & содержание3канарейки & щеглы & содержание4разведение & содержание & канарейки & щеглы
Ответы
function IsHamming(n:integer):boolean;
begin
while n mod 2 = 0 do n:=n div 2;
while n mod 3 = 0 do n:=n div 3;
while n mod 5 = 0 do n:=n div 5;
Result:=(n=1)
end;
begin
var n:=ReadInteger('n=');
var s:int64:=0;
var k:=0;
var i:=2;
while k<>n do begin
if IsHamming(i) then begin
Inc(k); s+=i; Print(i)
end;
Inc(i)
end;
Writeln(NewLine,'Сумма элементов последовательности равна ',s);
n:=ReadInteger('Найти элемент с номером');
i:=2; k:=0;
while k<>n do begin
if IsHamming(i) then Inc(k);
Inc(i)
end;
Writeln('Найденное значение: ',i-1)
end.
Тестовое решение:
n= 33
2 3 4 5 6 8 9 10 12 15 16 18 20 24 25 27 30 32 36 40 45 48 50 54 60 64 72 75 80 81 90 96 100
Сумма элементов последовательности равна 1257
Найти элемент с номером 1000
Найденное значение: 51840000