Г) 1 бит..............................................
8)
a:=20;
b:=25;
a<b, c:=2*a-b;
c:=40-25;
c:=15;
1)
a:=3;
b:=8;
a:=8-3*2;
a:=2;
b:=24/2*4:
b:=48;
2)
Var
a,b,c,p,s:real;
Begin
Writeln('Enter A,B,C');
Readln(a,b,c);
p:=(a+b+c)/2;
S:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln(S);
end.
Проверочное устройство (задание M-1) проходиш сковозь задание искатель и если за пикал то он не зделал дз
//PascalABC.NET 3.1 сборка 1200
begin
var n := ReadInteger('n =');
var X := ArrRandom(n, -99, 99);
X.Println;
var Y := ArrRandom(n, -99, 99);
Y.Println;
for var i := Low(X) to High(X) do
if Y[i] > X[i] then Swap(Y[i], X[i]);
writeln();
X.Println;
Y.Println;
end.
Rogram z1;
Var n,I,s,k:integer;
Begin
Writeln ('n=');
Readln (n);
S:=0;k:=0;
If n>=100 then
For I:=100 to n do begin
S:=i+s;
K:=k+1;end;
Writeln (s/k);
Readln ;
End.