Program q3; var: a,b,c,D,x1,x2: real;(вводим переменные) readln(a); readln(b); readln(c);(считываем переменные с клавиатуры) D:=b*b-4*a*c;(формула дискриминанта) if(D<0) then writeln('нет решений');(проверяем дикриминант меньше 0) if(D=0) then do begin x1:=-b/2*a; writeln(x1); end; if(D>0) then do begin x1:=(-b+sqrt(D))/2*a; x2:=(-b-sqrt(D))/2*a;(находим корни) writeln(x1); writeln(x2); end; end.
Есть типы лицензий для бесплатно ра програм: Trial Software - "тральные" на жаргоне, программы с бесплатным пользованием на протяжении какого-то срока, после чего он блокируется и появляется необходимость её купить. Non-Commercial Use - бесплатное пользование, при условие не комерчиского использования, т.е. для часных нужд. (пример: программа для бухгалтерии можно ра платно для предприятия, но бесплатно для частного лица, желающего менеджить свои доходы/расходы) Shareware - покупка не обязательна, покупка как благотворительный взнос, но зачастую такие программы часто "напоминают" о наличии функции их купить. Open Source - программы бесплатны для пользования по какой-либо лицензии от производителя, с открытым исходным кодом, открыты для модификации и не редко с возможностью принять участее в процессе разработки.