Предмет: Информатика, автор: egorlapin2004

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.

Ответы

Автор ответа: pacixor
0
//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.
Похожие вопросы