Поиграйтесь с рисовкой =)
PRINT "Vvedite chislo x1!"
INPUT x1
PRINT "Vvedite chislo x2!"
INPUT x2
PRINT "Vvedite chislo y1!"
INPUT y1
PRINT "Vvedite chislo y2!"
INPUT y2
CLS
SCREEN 12
LINE (x1, y1)-(x2, y2), 5, BF
END
var a,b,c,z:integer;
begin
readln(a, b, c);
z:=0;
if (a > b) and (a > c) then begin
z:= b+c;
if a >= z then
writeln('Это не треугольник')
else write('Это разностороний треугольник');
end
else if (b > a) and (b > c) then begin
z:= a+c;
if a >= z then
writeln('Это не треугольник')
else write('Это разностороний треугольник');
end
else if (c > a) and (c > b) then begin
z:= b+a;
if a >= z then
writeln('Это не треугольник')
else write('Это разностороний треугольник')
end
else if (a = b) and (a = c) then
write('Это равностороний треугольник')
else write('Это равнобедренный треугольник');
end.
Объяснение:
для basic:
REM
CLS
Screen 7
INPUT "a=",a
Line (10,10)-(70,50),2,BF