Написать программу (в паскаль) по закупке товаров в магазине на определённую сумму денег, не превышающую заданное количество денег. входные данные: с клавиатуры вводится сумма, на которую предполагается произвести покупки. затем вводятся цена и количество товара №1, товара №2 и т.д. до тех пор пока не будет исчерпана сумма денег.

Uses crt; var sum,x,itog: real; i,y: integer; begin i: =1; itog: =0; write ('start summa: '); readln (sum); while (itog< sum) do begin write ('¹',i,': '); i: =i+1; readln (x); write ('kol-vo: '); readln (y); itog: =itog+y*x; end; if (itog> sum) then writeln ('itog: ',itog-y*x) else writeln ('itog: ',itog); end.

Uses crt; var s: integer;       b,y,a: real; begin write('введите сумму денег, на которую собираетесь произвести покупки: '); read(a); while a> 0 do  begin   s: =s+1;   write('товар №',s,': ');   read(b);   write('введите количество: ');   read(y);   a: =a-(b*y);   end; end.

Сортировка методом пузырька (по возрастанию)procedure massivsort(var arr : array of real; const n : integer); var      i:   integer;       j:   integer;       k:   integer;       m:   real; begin      for i: =1 to n do      begin          m: =arr[i-1];           k: =i;           for j: =i to n do          begin              if m> arr[j-1] then              begin                  m: =arr[j-1];                   k: =j;               end;           end;           arr[k-1]: =arr[i-1];           arr[i-1]: =m;       end; end; сортировка по убыванию: procedure sort; var i , j , tmp : integer; begin     for i : = 1 to n - 1 do         for j : = i + 1 to n do             if a[i] < a[j] then begin                 tmp : = a[i];                 a[i] : = a[j];                 a[j] : = tmp;             end;

//dev-c++ 5.11 #include < iostream> #include < string> using namespace std; void plus1(char*,int*); int main(void)   {string n;   char poli[108];   int kar=0,buf,add=0;   cin> > n;   for(int i=0; i< n.length()/2+n.length()%2; i++)     {poli[kar]=n[i];     kar++; }   buf=kar;   plus1(poli,& kar);   if(buf! =kar)     {add++;     buf=kar; }   if((n.length()+add)%2! =0)     for(int i=buf-2; i> =0;     {poli[kar]=poli[i];     kar++; }   else     for(int i=buf-1; i> =0;     {poli[kar]=poli[i];     kar++; }   for(int i=0; i< kar; i++)   cout< < poli[i];   return 0; }   void plus1(char slogaem[],int* len)   {int add=1;   for(int i=*len-1; i> =0;   if(slogaem[i]=='9' & & add==1)     {add=1;     slogaem[i]='0'; }     else     {slogaem[i]+=add;     add=0; }   if(slogaem[0]=='0' & & add==1)   {for(int i=*len; i> 0;     slogaem[i]=slogaem[i-1];   slogaem[0]='1';   *len+=1; }} пример ввода: 93439 пример вывода: 93539