Question

Написание разветвляющихся программ на языке Pascal.
Задание №1:Если а>b и b>c тогда а = max+3.
Задание №2:Вывести на экран среднее арифметическое максимального и минимального из 3 чисел.

Answer 1

1) Var a,b,c,max: Integer;
Begin
writeln('Введите a,b,c,max');
readln(a,b,c,max);
if (a>b) and (a>c) then a:=max+3;
writeln(a);
End.

2) Var a,b,c,max,min: Integer;
Begin
writeln('Введите 1,2,3 число');
readln(a,b,c);
max:=a;
if max<b then max:=b;
if max<c then max:=c;
min:=a;
if min>b then min:=b;
if min>c then min:=c;
writeln('Среднее: ',(max+min)/2);
End.

Answer 2

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

** 1 **

begin
  var (a,b,c):=ReadReal3('ВВедите a, b и c:');
  if (a>b) and (b>c) then a+=3;
  Print(a,b,c);
end.

** 2 **

begin
  var (a,b,c):=ReadReal3('Введите a, b и c:');
  Writeln((Max(Max(a,b),c)+Min(Min(a,b),c))/2)
end.

Пример

Введите a, b и c: 18 -6 11.5
6