Складіть блок-схему алгоритму знаходження суми п’яти чисел, перше з яких дорівнює 7, а кожне із чотирьох наступних на 3 більше від попереднього. виконайте алгоритм. с лазариуса
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)аналоговый звук представляет собой плавную кривую (синусоиду) . в компьютере присутствует только цифровой сигнал, который не может быть плавной кривой. поэтому кривая преобразуется в линию ступенями. а 32-х разрядность говорит о том, что сигнал определённой длины разбивается на 32 части. получается тридцать две мелкие ступени. а если будет 16 бит, то будет 16 ступеней в 2 раза больших в размере. 3)это стандарт цифровой звукозаписи, формат обмена данными между электронными музыкальными инструментами.
var a,b, I, maxsumm, max : integer;
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.