Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Помогите пожалуйста, срочно надо

Составь программу на Pascal для этой задачи:

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

Ответ оставил Гость

program lala;

var a,b,c,n,v:integer;

begin

writeln(vvedite chislo konfet);

readln(n);

a:=(n div 10);

b:=n-(a*10);

if b>5 then

c:=b-5;

b:=1;

v:=a+b+c;

writeln(naimensee chislo coroboc ravno,v);

else

v:=a+b;

writeln(naimensee chislo coroboc ravno,v);

end.