23010070.. Učitati 3 različita realna broja. Ispisati ih u rastućem redoslijedu na ekran.
Listing programa:
PROGRAM p23010070;
uses
wincrt;
var
a,b,c, temp: integer;
begin
write('Unesi tri broja');
readln(a,b,c);
writeln('Ulazni redoslijed ',a,' ',b,' ',c);
if a>b then
begin
temp:=a ;
a:=b ;
b:=temp;
end;
if a>c then
begin
temp:=a;
a:=c;
c:=temp;
end;
if b>c then
begin
temp:=b;
b:=c;
c:=temp;
end;
writeln('Izlazni redoslijed: 'a,' ',b,' ',c);
end.
Ispis na ekranu:
Index
|
|