Вопрос по информатике:
Помогите пожалуйста, срочно надо
Составь программу на Pascal для этой задачи:
С кондитерской фабрики отгружают конфеты в коробках по 10 кг, 5 кг и 1 кг. Какое наименьшее количество коробок потребуется для перевозки N килограмм конфет?
- 19.10.2017 02:10
- Информатика
- remove_red_eye 12190
- thumb_up 75
Ответы и объяснения 2
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.
- 20.10.2017 12:10
- thumb_up 10
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.
- 21.10.2017 20:55
- thumb_up 40
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.