Код не мой, не знаю, на счет правильности,
Var S: real;
x: Array [1..5] of Real;
y: Array [1..5] of Real;
z: Array [1..5] of Real;
i,n,m: Integer;
{процедура вычисления площади треугольника}
procedure plosh(x_1,y_1,z_1,x_2,y_2,z_2,x_3,y_3,z_3:real);
var
a,b,c,p,t:real;
begin
a:=sqrt(sqr(y_2-y_3)+sqr(x_2-x_3)+sqr(z_2-z_3));
b:=sqrt(sqr(y_1-y_3)+sqr(x_1-x_3)+sqr(z_1-z_3));
c:=sqrt(sqr(y_1-y_2)+sqr(x_1-x_2)+sqr(z_1-z_2));
p:=(a+b+c)/2;
t:=p*sqrt((p-a)*(p-b)*(p-c));
end;
{заносим в массив координаты вершин}
for i:=1 to 5 do
begin
if i:=1 or 5 then
begin
write('X',i,' -> '); readln(x[i]);
write('Y',i,' -> '); readln(y[i]);
write('Z',i,' -> '); readln(z[i]);
end;
else
begin
write('X',i,' -> '); readln(x[i]);
write('Y',i,' -> '); readln(y[i]);
z[i]:=z[1]
writeln;
end;
end;
end;
{начинаем перебор всех вариантов сочетания вершин, создающих треугольник}
for i:=1 to 5 do
for n:=1 to 5 do
for m:=1 to 5 do
begin
if ((i<>n) and ((n<>m) and (i<>m))) then
begin
plosh(x[i],y[i],z[i],x[n],y[n],z[n],x[m],y[m],z[m]);
end;
<span> end;</span>
Ответ:а)10,003800456.
Объяснение:0,3800456×10(2)=0,3800456×100=10,003800456
Ответ:б)0,0245.
Обьяснение:0,245×10(-3)=0,245×0,1=0,0245.
using System;
namespace App {
internal class Program {
private static void Main() {
var a = new[,] {{1, 2, 3}, {1, 2, 3}, {1, 2, 3}};
for (var j = 0; j <= a.GetUpperBound(1); j++) {
if (j % 2 == 0)
a[0, j] = ColumnSum(j, ref a);
else
a[0, j] = ColumnProduct(j, ref a);
}
for (var i = 0; i <= a.GetUpperBound(0); i++) {
for (var j = 0; j <= a.GetUpperBound(1); j++)
Console.Write("{0} ", a[i, j]);
Console.WriteLine();
}
Console.WriteLine();
Console.ReadLine();
}
public static int ColumnSum(int column, ref int[,] a) {
var sum = 0;
for (var i = 0; i <= a.GetUpperBound(0); i++) {
sum += a[i, column];
}
return sum;
}
public static int ColumnProduct(int column, ref int[,] a) {
var p = 1;
for (var i = 0; i <= a.GetUpperBound(0); i++) {
p *= a[i, column];
}
return p;
}
}
}
Бутер
1. Взять доску
2. Взять колбасу
3. Отрезать два кругляша
4. Взять сыр
5. Отрезать один ломтик
6. Взять хлеб
7. Взять масло
8. Намазать масло на хлеб
9. Положить на хлеб с маслом колбаску
10. Положить на хлеб с маслом и колбаской сыр
11. Положить на хлеб с маслом, колбаской и сыром ещё одну колбаску
12. Пожелать себе бон аппети))