Cформировать и вывести целочисленный массив размера n=15, содержащий степени n первых степеней числа 2,взятых с чередующихся знаками: (1,-2,4,-8,-32,64,
1) Опрятный мальчик, опрятно одет. Учится на 4-ки и 5-ки. 2) Высокий мальчик с сильными и мускулистыми руками, ногами. 3)Любой зверь, например: котик, который поранил лапку, собака с вывихнутой челюстью и т.д. 4)Моя квартира просторная, в ней есть три комнаты, ванна, кухня, туалет и кладовка.Соседние квартиры тоже 3-ёх комнат, но есть и с двумя, но тоже большие. Я взял отличную и новую книгу в библиотеке. Она не была порвана и была интересной. Прямоугольная штучка, которая может проигрываться. 7) Я живу в большом городе, рядом с моим городом расположен один такого же размера, а остальные населённые пункты были меньше.
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.
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrGen(15,i->power(-2,i));
a.Println
end.
Результат
1 -2 4 -8 16 -32 64 -128 256 -512 1024 -2048 4096 -8192 16384