Хотя бы что-нибудь! решить в ! составить программу для: 1)решения линейного уравнения ах + в = 0 (а,в ≠ 0). 2)найти площадь кольца по заданным внешнему и внутреннему радиусам 3)даны катеты прямоугольного треугольника, найти его площадь и периметр 4)даны два числа. найти среднее арифметическое их модулей 5)даны координаты двух точек на плоскости. вычислить расстояние между ними 6)даны два основания и высота прямоугольной трапеции. найти ее площадь и периметр 7)найдите разность между трехзначным числом и произведением его цифр
244
299
Ответы на вопрос:
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.
Популярно: Информатика
-
angeldeikina10.08.2021 00:56
-
hedgehogGreen16.06.2021 03:17
-
15102007107.10.2021 16:39
-
Udnyoj24.07.2020 15:29
-
vitalik153fb08.08.2022 10:50
-
TupouChuBaK05.06.2022 02:50
-
KARKARACH31.07.2020 08:40
-
dodess27.11.2021 21:54
-
Sofochka130928.06.2020 05:54
-
цыпабезума11.11.2022 20:22