задачки

[maksu6ka2009]

[Stilet]

Сам то как думаешь делать?

[maksu6ka2009]

первые две я решил а вот остальные незнаю

[maksu6ka2009]

кто нибудь поможет?????

[DM_bite]

4.

program Xd;
function Max(a,b,c: integer): integer;
begin
if (a>b) and (a>c) then Max:=a;
if (b>a) and (b>c) then Max:=b;
if (c>a) and (c>b) then Max:=c;
end;

function Ner(a,b,c: integer): boolean;
begin
if (a<>b) and (b<>c) and (c<>a) then Ner:= true
else Ner:= false;
end;

var a,b,c: integer;
    a1,b1,c1,f,s: boolean;
begin
ReadLn(a,b,c);
if (a>b) and (b>c) and (c>0)  then
begin
WriteLn(sqr(a),'_',sqr(b),'_',sqr(c));
s:= true;
end;
if (a<0) and (b<0) and (c<0) and Ner(a,b,c) then f:= true;
if f then begin
if Max(a,b,c)= a then
begin
b:= a; c:= a; a1:= true;
end;
end;
if f then begin
if Max(a,b,c)= b then
begin
a:= b; c:= b; b1:= true;
end;
end;
if f then begin
if Max(a,b,c)= c then
begin
b:= c; a:= c; c1:= true;
end;
end;
if (f and a1) or (f and b1) or (f and c1) then WriteLn(a,'_',b,'_',c,'_!');
if (not f) and (not s) then WriteLn('Summa =',a+b+c);
ReadLn;
end.

И 2 функции накатал.Одна ищет большее из 3 чисел, другая - проверяет не равны ли 3 числа.