По принципу, программы бывает очень много, но я выделю самые оптимальные и функциональные: command local 34bet, kool 53.dlt. Они вычисляют произвольно все принципов решений параллелепипеда, угол расположения, моделирования, строительства, и многое другое (+ подсчёты)
Program zadacha;
Var x,y,z,ans:Int64;
Begin
ReadLn(x,y,z);
If (x>0) and (y>0) and (z>0) then Inc(ans);
If (ans=0) then WriteLn('Такой треугольник построить нельзя') else begin
Write('Такой треугольник можно построить');
If(x=y) xor (x=z) xor (y=z) then Write(', он будет равнобедренным') else
If(x=y) and (x=z) and (z=y) then Write(', он будет равносторонним')else
If(x=y) xor (x=z) xor (y=z) then Write(', он будет равнобедренным');
<span>If (sqr(x)+sqr(y)=sqr(z)) or (sqr(y)+sqr(z)=sqr(x)) or (sqr(z)+sqr(x)=sqr(y)) then </span>
<span>write(', он будет прямоугольным.') else</span>
<span> If(sqrt(sqr(x)+sqr(y))>z) xor (sqrt(sqr(z)+sqr(y))>x) xor (sqrt(sqr(x)+sqr(z))>y) then Write(', он будет остроугольным.')</span>
<span>else write(', он будет тупоугольгым.');</span>
end;
End.
<u><em>ps: не забудь пометить как лучшее решение плизз)</em></u>
250,140625 килобайт
если нужно решение то вот:
i=64
K=128*256
I=?
Физика-5+4+4+5=18:4=4,5
Химия-3+4+3+4=14:4=3,5
Алгебра-4+4+3+4=15:4=3,75
Геометрия-4+3+3+3=13:4=3,25
Если надо округлять:
Физика:5
Химия:4
Алгебра:4
Геометрия:3
Turbo Pascal
USES CRT;
VAR A:array[1..10] of integer;
B:array[1..5] of integer;
C:array[1..5] of integer;
i,bx,cx:integer;
BEGIN
CLRSCR;
Randomize;
For i:=1 to 10 do
begin
A[i]:=1+random(50);
Write(A[i],' ');
end;
Writeln;
bx:=1; cx:=1;
for i:=1 to 10 do
if (i mod 2 = 0) then
begin
B[bx]:=A[i];
bx:=bx+1;
end
else
begin
C[cx]:=A[i];
cx:=cx+1;
end;
For i:=1 to 5 do
Write(B[i],' ');
Writeln;
For i:=1 to 5 do
Write(C[i],' ');
READLN;
END.<span>
</span>
