Question

Подскажите пожалуйста: программа на языке паскаль определите какая из трех сторон треугольника больше всех

Answer 1

Program abc;
var a,b,c:integer;
begin
writeln('Введите первую сторону');
read(a);
writeln('Введите вторую сторону');
read(b);
writeln('Введите третью сторону');
if (a>b) and (a>c) then write(a);
if (b>a) and (b>c) then write(b);
if (c>a) and (c>b) then write(c);
if (a=b) or (a=c) or (c=b) then write('Есть равные стороны и нет большей')
end.

Answer 2

Для определения, какая из трех сторон треугольника больше всех, вы можете воспользоваться следующей программой на языке Pascal:

pascalCopy code
program MaxSideOfTriangle;
var
  a, b, c: real;
begin
  writeln('Введите длину первой стороны треугольника (a): ');
  readln(a);

  writeln('Введите длину второй стороны треугольника (b): ');
  readln(b);

  writeln('Введите длину третьей стороны треугольника (c): ');
  readln(c);

  if (a >= b) and (a >= c) then
    writeln('Самая большая сторона - a')
  else if (b >= a) and (b >= c) then
    writeln('Самая большая сторона - b')
  else
    writeln('Самая большая сторона - c');

  readln;
end.

Эта программа позволяет ввести длины трех сторон треугольника и затем определяет, какая из них самая большая. Вы можете скомпилировать и выполнить эту программу на вашем компьютере, чтобы получить результат.