Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Помогите решить задание по информатике!!

Ответ оставил Гость

program nfe;

uses crt;

var a,b,c:integer;

begin

readln(a,b,c);

if (a=c) and (a<>b)  and (b<>c) then writeln(равнобедренный);

if (a=c) and (a=b) and (c=b) then writeln(равносторонний);

if (a<>c) and (a<>b) and (b<>c) then writeln(разносторонний);

readln;

end.