Практическая работапо темамЛинейный алгоритм, Алгоритм с ветвлениями, Циклический алгоритмЛинейный алгоритм1.     Объясни, что будет напечатано программойProgram e1;Var b,c,d:real;BeginRead (b,c);D:=sgrt(sgr(b) – 4*c);Writeln (...

Практическая работа по темам Линейный алгоритм, Алгоритм с ветвлениями, Циклический алгоритм Линейный алгоритм 1.     Объясни, что будет напечатано программой Program e1; Var b,c,d:real; Begin Read (b,c); D:=sgrt(sgr(b) – 4*c); Writeln (`x1=` ,(-b+d)/2, ` x2=` , (-b-d)/2 End 2.     Написать программу, которая вычисляет площадь равностороннего треугольника, периметр которого равен p. Алгоритмическая структура «ветвление» 1.     Объяснить, что будет напечатано программой, если в качестве исходных данных будет введено значение: 0, 5, 10 Program e1; Var x,y: byte; Begin Read(x); If x<5then y:=1 else y:=2; If x>5 then y:-3 else y:=4; Writeln (`y=`,y); End 2.     Написать программу, которая определяет, является ли заданное целое число четным. Алгоритмическая структура «цикл» 1.     Объяснить, что будет напечатано программой Program e1; Var x: byte; Begin For x:=1 to 5 do Writeln (x+1); End 2.     Написать программу вывода на экран всех четных чисел из диапазона от А до В кратных трем (АВ).