// PascalABC.NET 3.3.5
begin
var xa, xb, xc, ya, yb, yc: real;
readln(xa, ya, xb, yb, xc, yc);
writeln(abs((xa - xc) * (yb - yc) - (xb - xc) * (ya - yc))/2);
end.
Помогите сделать линейную программу в аттестате содержатся следующиее оценки 3,4,5,5,4,3,4,5,3,4,3,3,4.5.Найдите средний балл.Сд
Алик карен
В программе для семи оценок (алгоритм линейный)
<span>Program integral;
uses crt;
Var
A : string;
Begin
clrscr();
A := 'интеграл';
writeln ('a) ', A [5] + A [7] + Copy (A, 2, 3) + A [8] + A [1]);
writeln ('б) ', A [6] + A [4] + Copy (A, 2, 2) + A [5] +
A [4] + A [2]);
writeln ('в) ', A [3] + A [1] + Copy (A, 5, 2));
writeln ('г) ', A [7] + A [5] + A [4] + Copy (A, 2, 2));
readln();
End.</span>