12 в десятичное - 110 в троичной.
ЗАДАНИЕ 2
program magazin;
var c,k,p,s:integer;
begin
writeln ('Предельная сумма – ');readln(p);
s:=0;
REPEAT;
writeln('Цена товара – ');readln(c);
writeln('Количество товара – ');readln(k);
s:=s+c*k;
writeln('Стоимость покупки =',s);
UNTIL s>p;
writeln('Не хватает!');
end.
var
i: integer;
mas: array[1..12] of byte;
begin
randomize;
for i:=1 to 12 do
mas[i]:= random(20) + 1;
writeln('Сумма = ', mas[1]+mas[2]+mas[3]+mas[4]+mas[5]+mas[6]);
end.