Хотя бы что-нибудь! решить в ! составить программу для: 1)решения линейного уравнения ах + в = 0 (а, в ≠ 0 2)найти площадь кольца по заданным внешнему и внутреннему радиусам 3)даны катеты прямоугольного треугольника, найти его площадь и периметр 4)даны два числа. найти среднее арифметическое их модулей 5)даны координаты двух точек на плоскости. вычислить расстояние между ними 6)даны два основания и высота прямоугольной трапеции. найти ее площадь и периметр 7)найдите разность между трехзначным числом и произведением его цифр

1)  var a,b,x: real; begin write ('введите числа а и b: '); readln(a,b); x: =-b/a; writeln('x= ',x); end. 2)  var r1,r2,s: real; begin write ('введите размеры  внешнего и внутреннего радиусов: '); read(r1,r2); s: =pi*r1*r1-pi*r2*r2; write ('площадь кольца =  ',s); end. 3)  var a,b,c,s,p: real; begin write ('введите длины катетов: '); read(a,b); s: =a*b/2; c: =sqrt(a*a+b*b); p: =a+b+c; write ('площадь треугольника  =  ',s); write ('периметр  треугольника  =  ',p); end. 4)    var a,b,sr: real; begin write ('введите числа а и b: '); readln(a,b); sr: =(abs(a)+abs(b))/2; writeln('среднее арифметическое модулей  = ',sr  ); end. 5)  var x1,y1,x2,y2,r: real; begin write ('введите координаты точек: '); readln(x1,y1,x2,y2  ); r: =sqrt ( sqr(x2-x1)+sqr (y2-y1)); writeln('расстояние  = ',r  ); end. 6)    var a,b,h, s, p: real; begin write ('введите длины оснований и высоту трапеции: '); readln(a,b,h); s: =(a+b)*h/2; p: =a+b+h+sqrt (sqr(abs(a-b))+h*h); write ('площадь трапеции  =  ',s); write ('периметр  трапеции=  ',p); end. 7)  var a,e,d,s, p: integer; begin write ('введите трехзначное число: '); readln(a); e: =a mod 10; s: =a div 100; d: = (a  div 10) mod 10; p: =e*d*s; write ('разность между трехзначным числом и его произведением =  ',a-p); end.   к твоему комментарию  var x,s,m,c: integer; begin write('введите количество секунд: '); readln(x); c: =x div 3600; m: = (x mod 3600) div 60; s: =(x mod 3600) mod 60; writeln('прошло    ',c,'   часов  ',m,' минут ', s,' секунд '); end.

Sub m2()     cells.clear     dim n as integer, i as integer, min as integer     n = inputbox("n(> 5) = ")     cells(1, 1).value = "n = " + str(n)     redim a(1 to n)     for i = 1 to n         a(i) = inputbox("a(" + str(i) + ")")     next i     cells(2, 1).value = "исходный массив"     range(cells(3, 1), cells(3, = a     min = a(1)     for i = 2 to n         if a(i) < min then min = a(i)     next i     cells(4, 1).value = "min = " + str(min)     cells(5, 1).value = "полученный массив"     for i = n - 4 to n         a(i) = min     next i     range(cells(6, 1), cells(6, = a end sub

Sub m1()     cells.clear     dim n as integer, i as integer, s as integer     n = inputbox("n = ")     cells(1, 1).value = "n = " + str(n)     redim a(1 to n)     for i = 1 to n         a(i) = inputbox("a(" + str(i) + ")")     next i     cells(2, 1).value = "исходный массив"     range(cells(3, 1), cells(3, = a     s = 0     for i = 1 to n         s = s + a(i)     next i     cells(4, 1).value = "s = " + str(s)     cells(5, 1).value = "полученный массив"     for i = 1 to n         a(i) = a(i) + s     next i     range(cells(6, 1), cells(6, = a end sub