Var InFile, OutFile: text; // Вводной и выводной файлы Var a,b,c, D, Result : Integer; Assign(InFile, "C:\kvur.txt"); Assign(OutFile, "C:\korni.txt") Reset(InFile) Read(InFile,a) Read(InFile,b) Read(InFile, c) D = sqr(b) + 4*a*c if D = 0 then Write("Уравнение не имеет корней") Else Append(OutFile) Result:=(-b + sqrt(D)) / 2 * a Write(OutFile,Result) Write("Корень уравнения") WriteLn(Result) if (D>0) then Result:=(-b - sqrt(D)) / 2 * a Write(OutFile, Result) Write("Второй корень уравнения") Write(Result) End; End.
import random chuslo = [random.randint(0,500) for x in range(1000)] five = [] for i in chuslo: if i %5==0: five.append(i) five.sort() five.reverse() print(five)
Достоинства:стабильность сигнала
Недостатки:неудобстыо из-за провода
Беспроводное
Достоинства:удобство,поддержка не только компьютеров ,а мобильных устройств
Недостатки:иногда нестабильное подключение