Работа создайте таблицу содержащую информацию о приобретении канцтоваров для школы. вставьте формулы для подсчета стоимости каждого вида товара, общей стоимости. определите, среднюю цену товара, наибольшее количество товара, а так же на какой товар была потрачена наименьшая сумма. постройте диаграмму, показывающую, какого товара было приобретено больше всего. наименование цена количество стоимость учебники 150 50 тетради 9 75 ручки 6,5 80 карандаши 2,5 92 мел 12,3 10 итого: средняя цена наибольшее количество наименьшая стоимость

и какая вероятность что пользователь не

program i_guess_number; uses crt; var changes: array [1..2,1..10] of integer; i,op,n: integer; s: string; res: real; begin      randomize;       writeln("загадайте число");       n : = 0;       repeat            n : = n+1;             i : = random(10);             op : = random(4);                         case op of                  1: s : = "прибавте ";                   2: s : = "отнимите ";                   3: s : = "умножте на ";                   else s : = "поделите на ";             end;                         writeln(s, i);             changes[1,n] : = op; {запоминаем действия}            changes[2,n] : = i;       until n = 10;             writeln("что вышло? ");       readln(res);             for i : = n downto 1 do { производим обратные действия }      begin            case changes[1,i] of                  1: res : = res - changes[2,i];                   2: res : = res + changes[2,i];                   3: res : = res / changes[2,i];                   else res : = res * changes[2,i];             end;       end;                   writeln("вы загодали ",res); end.

одна из возможных форм курсора : прямая

var a,b,c: integer;

begin

  read(a,b,c);

  if a> =0 then writeln(a);

  if b> =0 then writeln(b);

  if c> =0 then writeln(c);

end.

s=v0*t+at^2\2

s=0*5+2*5^2\2=50\2=25м