Matematyka.pl

Kod: Zaznacz cały

program testowy;
uses crt;
var a,b,c:integer;
begin
	clrscr;
	writeln('Podaj trzy liczby');readln(a,b,c);
		begin
		if (a>b) and (a>c) then writeln(a);
		if (b>a) and (b>c) then writeln(b);
		if (c>a) and (c>b) then writeln(c);
		end;
		begin
	    if (a<b) and (a<c) then writeln(a);
		if (b<a) and (b<c) then writeln(b);
		if (c<a) and (c<b) then writeln(c);
		end;
		readkey;
end.		

Kod: Zaznacz cały

program testowy;
uses crt;
var a,b,c,d:integer;
begin
clrscr;
   writeln('Podaj trzy liczby');readln(a,b,c);
if (a>b) then begin // zamieniamy a z b
  d:=b;
  b:=a;
  a:=d;
end;
if (b>c) then begin // zamieniamy b z c
  d:=c;
  c:=b;
  b:=d;
end;
if (a>b) then begin //zamieniamy a z b
  d:=b;
  b:=a;
  a:=d;
end;
writeln(c);writeln(b);writeln(a);
readln();
end.