Var
a: array [1..4] of real;
begin
readln(a[1], a[2], a[3]);
a[4] := (a[1] + a[2] + a[3]) / 2;
writeln(sqrt(a[4] * (a[4] - a[1]) * (a[4] - a[2]) * (a[4] - a[3])));
<span>end.</span>
// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
var a:=ArrRandom(10,10,99); a.Println;
a.Reverse.Println
end.
<u><em>Тестовое решение:</em></u>
39 29 38 59 16 60 41 73 76 52
52 76 73 41 60 16 59 38 29 39
//PascalABC.NET
//Версия 3.3, сборка 1627
begin
write(max(ReadInteger,ReadInteger));
end.
Объяснение:
Писать, то что при конъюнкции 0+0=0; 0+1=0; 1+0=0; 1+1=1 Я не буду, ведь есть специальная таблица, я представляю лишь ответы. И они верны!
p.s. У меня знак & не ставится, но действие выполняется.
Порядок действий верный.
//PascalABC.NET
//Переменная m - множитель, когда встретится
// четное число, m станет равным нулю
begin
var n := ReadInteger('n =');
var m := 1;
var sum := 0;
for var i := 1 to n do
begin
var number := ReadInteger;
m *= number mod 2;
count += m * number
end;
write(sum)
end.