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

Program z1; var x1,x2,y1,y2: integer; begin read(x1,x2,y1,y2); writeln(sqrt(sqr(x2-x1)+sqr(y2-; end. program z2; var ch: integer; begin read(ch); writeln(ch*ch); end. program z3; var k1,k2: integer; begin read(k1,k2); writeln(sqrt(sqr(k1)+sqr(; writeln((k1*k2)/2); end. program z4; var  ch1,ch2,ch3: integer; begin read(ch1,ch2,ch3); writeln(abs(ch1)+abs(ch2)+abs(; end.

Начало: 1.подойти к телефону,2.поднять трубку телефона,3.набрать номер друга,4.подождать пока друг поднимет трубку,5.поговорить с другом,6.поставить трубку на место,7.отойти от телефона. конец                                                                                                                                                                                                                             это линейный алгоритм.в линейном алгоритме шаги выполняются в той последовательности,в которой они записаны

Cls restore n = 14 dim m1(14), m2(14), m12(14) data 2,3,4,5,6,3,4,-8,7,3,-44,55,2,3 data 12,43,4,45,6,23,4,8,7,3,4,-5,2,53 for i = 1 to n read m1(i) print m1(i), next i print "" for i = 1 to n read m2(i) print m2(i), next i print"======================================================" k = 1 mim = m1(k) + m2(k) for i = 1 to n m12(i) = m1(i) + m2(i) print m12(i), if m12(i) < min then min = m12(i) k = i end if next i print"=======================================================" print "n="; k, min