Помогите пожалуйста, срочно надо Составь программу на Pascal для ...

Question

Помогите пожалуйста, срочно надо Составь программу на Pascal для ...

Женя

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

Есть ответ

17.12.2022

213

Ответ

Answer 1 · 17.12.2022

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.

Помогите пожалуйста, срочно надо Составь программу на Pascal для ...

Ответ

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.

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.