Предмет: Информатика,
автор: 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.
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Геометрия,
автор: dasaabakumova609
Предмет: Английский язык,
автор: bizzarchik
Предмет: Українська література,
автор: klimenkoira0303
Предмет: Обществознание,
автор: beston
Предмет: Биология,
автор: BillCifer