Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 22.06.2015 17:15
- Информатика
- remove_red_eye 5570
- thumb_up 34
Ответы и объяснения 1
var
i,s:integer;
begin
s:=0;
for i:=1 to 101 do s:=s+i*(i+1);
Writeln('S=',s)
end.
Результат
S=353702
№2
// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!
function Divizors(n:integer):array of integer;
begin
if n=1 then begin SetLength(Result,1); Result[0]:=1 end
else begin
var m:=Trunc(ln(n)/ln(2))+2;
var a:array of integer; SetLength(a,m);
a[0]:=1;
var d:=2;
m:=2;
while (n mod d0) and (d<=n) do Inc(d);
a[1]:=d;
if dn then begin
for var i:=a[1]+1 to n div a[1] do
if n mod i = 0 then begin a[m]:=i; Inc(m) end;
a[m]:=n;
SetLength(a,m+1)
end
else SetLength(a,2);
Result:=a;
end
end;
begin
var n:=ReadInteger('n=');
Write(n,': ');
Divizors(n).Println;
end.
Пример
n= 4096
4096: 1 2 4 8 16 32 64 128 256 512 1024 2048 4096
- 23.06.2015 15:54
- thumb_up 34
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.