Var a,b,c,m,l,s1,s,k:real;
begin
write('Длина, ширина и высота комнаты: ');
readln(a,b,c);
write('Длина, ширина и цена одного рулона: ');
readln(l,m,s1);
k:=2*(a+b)*c/m/l;
if k-int(k)>0 then k:=k+1;
k:=int(k);
s:=s1*k;
writeln('Потребуется рулонов: ',k);
writeln('Стоимость покупки: ',s)
<span>end.</span>
Есть специальная функция для округления с точностью до определённого разряда: RoundTo(). Она объявлена в модуле Math.
<span>var
Res, Num : Extended;
begin
//Округление до сотых долей:
Res := RoundTo(Num, -2);
//Округление до десятых долей:
Res := RoundTo(Num, -1);
//Округление до единиц:
Res := RoundTo(Num, 0);
//Округление до десятков:
Res := RoundTo(Num, 1);
//Округление до сотен:
Res := RoundTo(Num, 2)<span>;
</span></span>end;
Функция SimpleRoundTo()<span> сходна с </span>RoundTo()<span> – различие лишь в способе округления последнего знака. </span>SimpleRoundTo()<span> округляет последнее число в большую сторону, а RoundTo() использует так называемое банковское округление, приводя число к ближайшему четному</span>
Шляпка (головной убор и шляпка гвоздя), игла (швейная и игла ежа), звезда, кисть, груша, тарелка, лист. НЕ путать многозначные слова с омонимами!
Shift+F3 хахахахах,элементарное не занют