Петя Пяточкин хочет достать яблоко, висящее на высоте N (N >=1) метров. Для этого ему нужно связать несколько шестов, длины которых он знает. Таких шест у него М. (М >=1), каждая имеет длину Li. Какое наименьшее количество жердей ему нужно связать, чтобы достать яблоко? Считать, что шесты монтируются стык в стык, то есть при связывании ни один сантиметр ни шеста не теряется. Технические условия. Программа Petro читает с клавиатуры строку чисел через пропуск: N, M, L1, L2, ..., LM Программа выводит единственное число – искомую величину. Если яблоко получить невозможно, программа должна вывести 0.
Примеры
Введение 10 5 1 3 4 3 6
Вывод 2
Введение 10 5 1 1 1 1 1
Вывод 0
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
print('Это действие будет повторяться 10 раз!')
Объяснение:
Команда print отвечает за вывод текста, итого текст будет выводиться 10 раз
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.