1) B
2) A
3) A
4) A
5) D
6) D
7) по моему B
Var
a,b,c:real;
Begin
Write('Введите длины сторон треугольника: ');
ReadLn(a,b,c);
if (a<b+c)and(b<c+a)and(c<a+b) then
Begin
if (a=b)and(b=c) then WriteLn('Треугольник равносторонний')
else if (a=b)or(b=c)or(c=a) then WriteLn('Треугольник равнобедренный')
else WriteLn('Произвольный')
End
else WriteLn('Треугольник не существует');
End.
Как я понял , это оно !
https ://www. youtube.com/playlist?list=PLP6-uXxKE5Nuvajs8J9NeuoaPRGZwUlaG
Var a,b,c:real;
begin
read (a,b,c);
if (a=0) or (b=0) or (c=0) then writeln ('Есть') else writeln ('Нет');
end.
Ответы в приложении
Подстановка написана карандашиком