Какое наименьшее число почтовых марок стоимостью 10.4 и 1 руб. надо наклеить на бандероль,вес которой м грамм? плата за посылку вычисляется следующим образом: за бандероль весом до 50 г взимается 10 руб., за каждые следующие полные или неполные 50 г - еще по 5 руб.
program while;
var m,s,d,ch,od:integer;
begin
writeln ('Vvedit m');
readln (m);
if (m<50) and (m>0) 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. {делал без проверки в паскале}