Вопрос по информатике:
Какое наименьшее число почтовых марок стоимостью 10.4 и 1 руб. надо наклеить на бандероль,вес которой М грамм? Плата за посылку вычисляется следующим образом: за бандероль весом до 50 г взимается 10 руб., за каждые следующие полные или неполные 50 г - еще по 5 руб.
- 19.03.2018 23:43
- Информатика
- remove_red_eye 11440
- thumb_up 62
Ответы и объяснения 1
program while;
var m,s,d,ch,od:integer;
begin
writeln ('Vvedit m');
readln (m);
if (m0) then begin
m:=m-50; s:=10;
while m>0 do begin
m:=m-50;
s:=s+5;
end;
d:=s div 10; s:=s-d*10;
ch:=s div 4; s:=s-ch*4;
od:=s;
end;
writeln ('10-',d,' 4-',ch,' 1-',od);
readln
end. {делал без проверки в паскале}
- 21.03.2018 11:26
- thumb_up 7
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.