Question

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

Answer 1

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

Answer 2

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.