1) - в
2) - а
3) - е
Не уверен, но по моему так
Красив тот, кто красиво поступает.
Вроде так
<span>в. repeat k<1 until k:=k+1;
Должно быть: </span>repeat k:=k+1 until k<1;
T=10 с
i=8 бит
D= 8000 Гц
k=1
V=D*k*i*t=10*8*8000=640 000 бит
Var a,b,c:Integer;
Begin
Write('Введите длину 1 катета: '); Readln(a);
Write('Введите длину 2 катета: '); Readln(b);
Write('Введите длину гипотенузы: '); Readln(c);
if ((a+b)>c) and ((a+c)>b) and ((b+c)>a) then
Begin
if (sqr(c)=sqr(a)+sqr(b)) then
Writeln('Треугольник прямоугольный')
else
Writeln('Треугольник другого типа');
end
else
Writeln('Треугольник не существует');
END.