Программа нужна ** паскале С кондитерской фабрики отгружают конфеты в коробках по 7 кг,...

Question

Программа нужна на паскале
С кондитерской фабрики отгружают конфеты в коробках по 7 кг, 5 кг, 3 кг и 1 кг. Какое наименьшее количество коробок потребуется для перевозки N килограмм

Answer 1

Var n,k7,k5,k3,k1,k:integer;
begin
write('n = ');
readln(n);
k7:=n div 7;
k5:=(n-k7*7) div 5;
k3:=(n-k7*7-k5*5) div 3;
k1:=n-k7*7-k5*5-k3*3;
writeln('k7 = ',k7,' k5 = ',k5,' k3 = ',k3,' k1 = ',k1);
writeln('k = ',k7+k5+k3+k1);
end.

Пример:
n = 20
k7 = 2 k5 = 1 k3 = 0 k1 = 1
k = 4