Написание разветвляющихся программ ** языке Pascal. Задание №1:Если а>b и b>c тогда а =...

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

Comments

Спасибо!

---

Пожалуйста

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 maxif maxmin:=a;
if min>b then min:=b;
if min>c then min:=c;
writeln('Среднее: ',(max+min)/2);
End.

Comments

Спасибо!

---

Можете к этим заданиям нарисовать блок схему пожалуйста

---

Это правильно, когда много написано, еще и блок-схему хочется))))

---

Учитель требует

---

поскольку в вопросе этого не было, автор ответа имеет полное право никаких блок-схем не рисовать. Более того, их и негде теперь поместить - время на правку ответа вышло.

---

Жаль

---

А если отдельным вопросом, так можно?

---

Да.

---

Спасибо, сейчас задам вопрос

---

Поможете ?