Вася купил себе новую квартиру и теперь занимается переездом. у него есть n книг, вася хочет перевозить их отдельно от основных вещей. для транспортировки он может использовать коробки, которые вмещают m книг каждая. васе, какое кол-во коробок ему понадобится для перевозки всех книг за один раз. составить программу на паскале или другом яп

a - количество коробок

program one;

var n, m, a : integer;

begin

    read (n, m);

    if n mod m > 0 then

    begin

        a : = (n div m) + 1;

    end;

    if n mod m = 0 then

    begin

        a : = n div m;

    end;

    write (a);

end.

  друг  жить на любом этаже дома. поэтому, для решения используем уравнение 24=х. но 24=16. следовательно, х=16. в доме 16 этажей.

program yravnenie;

var  a,b,c,d,x1,x2,p,q: real; begin  repeat  write('a= ');   readln(a);   if a=0 then writeln('error: a=0. enter another value');   until a< > 0;   write('b= ');   readln(b);   write('c= ');   readln(c);   p: =b/a;   q: =c/a;   d: =sqr(p/2)-q;   if d> 0 then  begin    writeln('x1 = ',-p/2-sqrt(d): 0: 5);     writeln('x2 = ',-p/2+sqrt(d): 0: 5);   end  else  if d=0 then  writeln('x1 = x2 = ',-p/2: 0: 5)  else  begin    writeln('x1 = ',-p/2: 0: 5,'-i*',sqrt(-d): 0: 5);     writeln('x2 = ',-p/2: 0: 5,'+i*',sqrt(-d): 0: 5);   end;   readln; end.