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>
Бит, байт, килобайт, мегабайт, гигабайт
Маловато баллов за такую задачу, ну да ладно...
var n:integer; nashel:boolean;
begin
n:=0;
nashel:=false;
while not nashel do if ((n mod 2 = 1)and(n mod 3 = 2)and(n mod 4 = 3)and(n mod 5 = 4)and(n mod 6 = 5)and(n mod 7 = 6)) then nashel:=true else n:=n+1;
writeln(n);
<span>end.
Ответ: 419</span>
Любая величина имеет 1024 едениц
тоисть 1 мегабайт имеет 1024 гигабайтов
<h3>PascalABC.NET 3.4.2, сборка 1881 от 19.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var a := ReadArrInteger(20);
a.Transform(t -> t < 10 ? 1 : t);
a.Println
end.