Program a2;
var a, b, c, min: real;
begin
writeln ('Введите три числа');
readln (a, b, c);
min:= a;
if b<min then min:=b;
if c<min then min:=c;
writeln('min=', min);
<span>end.
</span>
#include <iostream>
using std::cout;
using std::cin;
int main(){
double a, b, c, p, S;
cout << "Введите стороны треугольника";
cin >> a >> b >> c;
p = (a + b + c)/2;
S = p*(p-a)*(p-b)*(p-c);
cout << "\nПлощадь = " << S;
}
F = !B & ( A + !(A&B) ) = !B & (A + !A + !B) = !B & (1+!B)= !B
{ т.к. !(A&B) = !A + !B }
F = !(A&B) + A&!B + A&B + B&C = !A + !B + A + B&C = !B + B&C
{ т.к. !(A&B) = !A + !B, A&!B + A&B = A&(!B+B) = A }
F = !(A&B + B&C) + C&!A = (A&B + B&C) & !(C&!A) =
= (A&B + B&C) & (!C+A) = B&(A+C)&(A+!C) = B & A
{ т.к. (A+C)&(A+!C) = AA + A!C + CA + C!C = A + A(!C+C)+0 = A + A = A }
Pascal abc.
Программа прикреплена к ответу
_______________________________
<span>var a:array[1..100] of integer;
i,n,s,k:integer;
sr:real;
begin
write('введите кол-во эл-тов массива: ');read(n);
for i:=1 to n do begin a[i]:=random(60); write(a[i]:4);end;
for i:=1 to n do
if (a[i] mod 2=0) and (i mod 2<>0) then begin s:=s+a[i]; inc(k); end;
writeln;
writeln('срзнач= ',s/k:4:2);
end.</span>