Felothis
5 год назад
7 классvar a, b, c, d, a1, b1, c1, max:integer;beginreadln (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.
ОТВЕТЫ
Александра
Oct 24, 2020
//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.
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.
646
Смежные вопросы:
