Rabu, 01 Oktober 2014

tugas 16

 Tugas 16
Algoritma

A <- B
B <- A

Isi A dan B di akhir algoritma adalah..

Pascal

 uses crt;

var
 a,b : integer;

begin
 clrscr;
 write('masukan nilai a: '); readln(a);
 write('masukan nilai b: '); readln(b);
 a := b;
 b := a;
 writeln('maka nilai a: ',a);
 writeln('dan nilai b: ',b);
 readln();
end.

Tidak ada komentar:

Posting Komentar