Question

Создайте программу на PascalABC, используя if ... then ... else.... Для рачета полупериметра треугольника (a+b+c)/2. Если a<>0 и т.д. и a+b>c и т.д.

Answer 1

Var a,b,c:real;
begin
  readln(a,b,c);
  if (a<>0) and (a+b>c) then writeln ((a+b+c)/2)
     else
         writeln('Неверные входные значения');
end.

Answer 2

Вот пример программы на PascalABC, которая вычисляет полупериметр треугольника и проверяет условия a<>0 и a+b>c:

program TrianglePerimeter;
var
  a, b, c: real;
  semiperimeter: real;
begin
  writeln('Введите стороны треугольника:');
  write('a: ');
  readln(a);
  write('b: ');
  readln(b);
  write('c: ');
  readln(c);
  
  if (a <> 0) and (b <> 0) and (c <> 0) and (a + b > c) and (a + c > b) and (b + c > a) then
  begin
    semiperimeter := (a + b + c) / 2;
    writeln('Полупериметр треугольника: ', semiperimeter:0:2);
  end
  else
    writeln('Введены некорректные значения сторон треугольника.');
  
  readln;
end.

В этой программе мы используем оператор `if ... then ... else` для проверки условий. Если все условия выполняются (a<>0, b<>0, c<>0, a+b>c, a+c>b, b+c>a), то программа вычисляет полупериметр треугольника и выводит его на экран. В противном случае, если хотя бы одно из условий не выполняется, программа выводит сообщение о некорректных значениях сторон треугольника.

Примечание: В этой программе предполагается, что пользователь вводит значения сторон треугольника вещественного типа. Если вам нужно работать с целыми числами, замените `real` на `integer` в объявлении переменных и используйте `read` вместо `readln` для чтения значений.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.