7 классvar a, b, c, d, a1, b1, c1, max:integer; begin readln (a, b, c); d:=(max(max(a,...

Question

7 класс
var a, b, c, d, a1, b1, c1, max:integer;
begin
readln (a, b, c);
d:=(max(max(a, b), c)); -----тут ошибка : Ожидалось имя процедуры или функции
a1:=d-a;
b1:=d-b;
c1:=d-c;
write (a1,' ');
write (b1,' ');
write (c1);
end.

Comments

Ну да. Нужна процедура max

---

что исправить?

---

Написать процедуру/функцию max...

---

Она же вроде написана

---

У тебя переменная max. Это не процедура/функция.

---

а как исправить?

---

Написать процедуру/функцию max...

---

Задание какое?

---

Даны три числовые переменные А, В, С. Найти максимальное значение и заменить, хранящиеся в переменных значения, на разницу между максимальным значением и тем,что храниться в переменной. Результаты вывести на экран. Пример работы программы:Ввод: 10 15 6Вывод: 5 0 9Ввод: 15 12 13.5Вывод: 0 3 1.5Ввод: -14 8 2Вывод: 22 0 6

Answer 1

//Pascal
var A, B, C, max: real;
begin
    readln (A, B, C);
    if A >= B then
      max := A
    else
      max := B;  
    if A > max then
      max := C;
    writeln(max - A,' ', max - B, ' ', max - C);
end.