программа нахождения суммы

[Pchelka1992]

Помогите пожалуйста.Написана программа нахождения суммы большего и меньшего из 3 чисел, помогите ее написать в excel

program primer4;
var a,b,c,s1,s2,t1,t2,q:integer;
procedure max(x,y:integer; var s:integer);
begin
if x>=y then s:=x else s:=y;
end;
procedure min(z,v:integer; var t:integer);
begin
if z<=v then t:=z else t:=v;
end;
begin
readln(a,b,c);
max(a,b,s1);
max(s1,c,s2);
min(a,b,t1);
min(t1,c,t2);
q:=s2+t2;
writeln(q:3,s2:3,t2:3);
end.

[was3110]

в VBA ? Без проблем. Пишите на ящик.

[Pchelka1992]

VBA?-в каком смысле???где можно найти ваш ящик?

[was3110]

Ящик в профиле. Щелкните по аватару и увидите.
А VBA (Visual Basic for Application ) входит во все офисные приложения.
На нем вам задали задание или с помощью функций листа Excel?
Но в последнем случае не понятен ваш пример из Паскаля...

[Pchelka1992]

простите но вашего ящика там не видно,нужно с помощью функций листа Excel. А что программа в паскале написана не верно?

[OlegVE]

Здравствуйте
Где у Вас в Excel исходные данные и где должен помещаться результат?
До свидания

[Mad_Cat]

=МАКС(A1:C1)+МИН(A1:C1)

а1-с1 ячейки с исходными данными

[was3110]

вкладка СВЯЗЬ.
Отправить сообщение для was3110 по электронной почте
Вы же рядом были...

[was3110]

После ответа Маd_Cat остается только вписать его в нужную ячейку...