Задание:
Помогите пожалуйста, срочно надо Составь программу на Pascal для этой задачи: С кондитерской фабрики отгружают конфеты в коробках по 10 кг, 5 кг и 1 кг. Какое наименьшее количество коробок потребуется для перевозки N килограмм конфет?
Решение:
program lala; var a,b,c,n,v: integer; beginwriteln ('vvedite chislo konfet'); readln (n); a: =(n div 10); b: =n- (a*10); if b>5 thenc: =b-5; b: =1; v: =a+b+c; writeln ('naimensee chislo coroboc ravno',v); elsev: =a+b; writeln ('naimensee chislo coroboc ravno',v); end.
Знаете другой ответ?