Program pokypka;
var s,os,v1,v2,v3:integer;
begin
writeln('Введите имеющуюся сумму');
readln(s);
writeln('Введите цену первой вещи');
readln(v1);
writeln('Введите цену второй вещи ');
readln(v2);
writeln('Введите цену третьей вещи');
readln(v3);
os:=s-v1-v2-v3;
writeln('Остаток денег=',os)
end.
<span> новый международный стандарт Unicode, который отводит два байта, и поэтому с его помощью можно закодировать не 256, а 65536 различных символов
соотвественно это 4 </span>
Затратят наименьшее количество времени если к первому пойдёт 7, ко второму-7 и третьему 6. кол-во времени:1.25 ч
...
while x<>1 do
begin
x:=x div 2;
inc (t);
end;
write (t);
...
P.S. твое врем я это степень двойки, а именно
Это вывод на экран переменной st - стоимость покупки
С - задает цену за 1 кг
V - задает сколько всего кг будет купленно
Потом все это перемножаем и заносим в переменную st и ее выводим ее на экран