Девушка потратила в магазине 1458.04 рубля
Var i,k:integer;
a:array[1..30] of integer;
begin
for i:=1 to 30 do
begin
a[i]:=random(30)-15;
if (a[i]>0) and (a[i] mod 2 = 0) then a[i]:=a[i] div 2;
if (a[i]>0) and (a[i] mod 2 <> 0) then a[i]:=a[i]*2;
if a[i]<0 then a[i]:=a[i]*-1;
end;
for i:=1 to 30 do writeln(a[i]);
<span>end.</span>
Молоко - 11101100
11101110
11101011
11101110
11101010
11101110
Отдельно тетради , отдельно карандаши
Карандашами вводишь информацию
Ответ:
Ни один крупный проект не пишется в одном файле. В папке прикладной программы помимо основного исполняемого файла обычно лежат всё её модули, файлы конфигурации, файлы с текстурами/звуками, библиотеки динамического подключения .dll и прочее. Удаление любого из этих файлов приведёт к нарушению работы программы, так как основные исполняемые файлы могут искать свои модули только в одной конкретной папке, прописанной разработчиком приложения (и в 99% случаев это та же папка, в которой лежит исполняемый файл)
Объяснение: