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:
![](../../../cpp/n/230CPP/230_izvedi/23010070.gif)
Index
|
![](../epp/000/Asistent.jpg) |