begin readln(a,b,c); if ((a=b) AND (a<>c) ) OR ((a=c) AND (a<>b)) OR ((b=c) AND (b<>a)) then writeln('Треугольник равнобедренный') else writeln('Треугольник не равнобедренный'); end;
Информационный объект — это описание некоторой сущности (реальногообъекта, явления, процесса, события) в виде совокупности логически связанных реквизитов (информационных элементов) Компьютер это-Электронно-вычислительная машина . Информация- сведения независимо от формы их представления. Персональный компьютер, ПК (англ. personal computer, PC), ПЭВМ (персональная электронно-вычислительная машина) — настольная микро-ЭВМ, имеющая эксплуатационные характеристики бытового прибора и универсальные функциональные возможности.
var
a,b,c:integer;
begin
readln(a,b,c);
if ((a=b) AND (a<>c) ) OR ((a=c) AND (a<>b)) OR ((b=c) AND (b<>a)) then
writeln('Треугольник равнобедренный')
else
writeln('Треугольник не равнобедренный');
end;