составить программу для паскаля даны три стороны треугольника, определить является ли такой треугольник равнобедренным, равносторонним или произвольным
Answers & Comments
betru17
Var a,b,c: integer; begin write('Введите сторону а: '); read(a); write('Введите сторону b: '); read(b); write('Введите сторону c: '); read(c); if (a=b) and (b=c) then writeln('Треугольник равносторонний') else if (a=b) or (b=c) or (a=c) then writeln('Треугольник равнобедренный') else writeln('Треугольник произвольный'); end.
Answers & Comments
begin
write('Введите сторону а: ');
read(a);
write('Введите сторону b: ');
read(b);
write('Введите сторону c: ');
read(c);
if (a=b) and (b=c) then
writeln('Треугольник равносторонний')
else if (a=b) or (b=c) or (a=c) then
writeln('Треугольник равнобедренный')
else writeln('Треугольник произвольный');
end.