Написать программу для машины-автомата, которая выдает напитки за введенную сумму денег по программе паскаль​

ответ:

говоря о положительных факторах, благотворно повлиявших на весь уклад духовной жизни тогдашнего общества, нельзя обойти молчанием и некоторые отрицательные последствия реформации. серьезные люди учатся не только на положительных примерах, но и на ошибках. какие же несовершенные следы мы можем заметить в шлейфе реформацион-ных движений?  

 

принцип доступности священного писания и его свободного истолкования открыл дорогу для бесконечного дробления христианства и появления самых различных исповеданий и толков.  

 

крупные церковные общины в протестантском мире не замедлили установить крепкие связи с государственным аппаратом. эти связи доходили до того, что церковь оказывалась под пятой владетельных князей, становясь частью бюрократического . весьма показателен в этом отношении пример церкви, которая возникла по королевской инициативе, короли и королевы официально являются главами этой церкви.  

 

как естественный результат слияния церкви и государства, многие страны охватили так называемые религиозные войны, в которых под флагом религии шла борьба за политические и интересы. известна своим печальным опытом тридцатилетняя война, швейцарские войны, междоусобицы во франции, крестьянская война в германии.  

 

Код для примитивной "рисовалки", рисуете что хотите. Для сохранения на рабочий стол нажимаете клавишу "Enter"

// PascalABC.NET 
// Версия 3.3.5 сборка 1662 (29.04.2018)

uses GraphABC; 

begin 
Window.Title := 'Рисование мышью(Enter - сохранить на раб. стол)'; 
Pen.Color := Color.Red; 
Pen.Width := 3; 
OnMouseDown := (x,y,mb) -> MoveTo(x,y); 
OnMouseMove := (x,y,mb) -> if mb=1 then LineTo(x,y); 
var a:=System.Security.Principal.WindowsIdentity.GetCurrent.Name;
OnKeyDown:=k->if k=13 then begin
SaveWindow('C:\Users\'+copy(a,pos('\',a)+1,a.Length-pos('\',a)+1)+'\Desktop\image.png'); Window.Close; end;
end.