Набрать программу в паскале извесно, что "а" кг яблок стоит "b" рублей. найдите сколько стоит "z" килограммор ябок

var

  a, b, z : real;

begin

  readln (a, b, z);

  writeln (z * (b / a));

end.

Const n=20;   var   a: array[1..n] of integer;   i,j,t,x,i1,i2: integer; begin   randomize;   writeln('исходный массив: ');   for i: =1 to n do begin     a[i]: =random(21);     write(a[i],' ')   end;   writeln;   for i: =1 to n-1 do     for j: =1 to n-i do       if a[j]< a[j+1] then       begin t: =a[j]; a[j]: =a[j+1]; a[j+1]: =t end;   writeln('отсортированный массив: ');   for i: =1 to n do write(a[i],' ');   writeln;   write('x = '); readln(x);   i1: =1; i2: =n;   repeat   i: =(i1+i2) div 2;   if a[i]> x then i1: =(i1+i2) div 2+1;   if a[i]< x then i2: =(i1+i2) div 2-1;   until (a[i]=x)or(i1> i2);   if a[i]=x then    begin   writeln('искомый(ые) номер(а) элемента(ов): ');   while (i> 0)and(a[i]=x) do i: =i-1;   i: =i+1;   while (i< =n)and(a[i]=x) do begin write(i,' '); i: =i+1; end;   end   else writeln('элемент не найден');   writeln; end. пример: исходный массив: 15 4 16 3 7 10 3 1 18 6 18 2 7 11 10 16 2 10 7 12  отсортированный массив: 18 18 16 16 15 12 11 10 10 10 7 7 7 6 4 3 3 2 2 1  x = 10 искомый(ые) номер(а) элемента(ов): 8 9 10 

Решение: разделим число  513  на  два  ( 2 - это основание системы счисления). делить будем с остатком, частное запишем в столбец "част.", а остаток в столбец "ост.". затем полученное частное снова разделим на  два  и новое частное и остаток также распределим по столбцам (см. ниже). повторять деление будем до тех пор, пока последнее частное не окажется меньше двух. част.ост.513 : 2 =256  1256 : 2 =128  0128 : 2 =64  064 : 2 =32  032 : 2 =16  016 : 2 =8  08 : 2 =4  04 : 2 =2  02 : 2 =1  0теперь мы можем записать число  513  в двоичной системе счисления. для этого в старший (самый левый) разряд числа запишем последнее частное (выделено жирным), а в следующие, по порядку, разряды запишем все полученные выше остатки, беря их снизу вверх. то есть, в самом младшем разряде оказывается самый верхний остаток.ответ:         51310  =  10000000012