Question

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

Answer 1

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.

Answer 2

var a,b,c,i:integer;
m:real;

begin
a:=10;
b:=5;
c:=1;
writeln ('Введите массу конфет (кг)');
readln (i);

if (i mod 10) =0 then m:=i div a;
if (i mod 10) =5 then m:=(i div a)+1;
if (i mod 10 =1) or (i mod 10 =2) or (i mod 10 =3) or (i mod 10 =4) then m:=(i div a)+c*(i mod 10);
if (i mod 10=6) or (i mod 10=7) or (i mod 10=8) or (i mod 10=9) then m:=(i div a)+1+c*(i mod 5);

writeln (m);
end.