Rabu, 01 Oktober 2014

tugas 17

 Tugas 17
Algoritmaa

B <- A
C <- B
A <- C

Isi C adalah..

Pascal

 uses crt;

var
 a,b,c : integer;

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

Tidak ada komentar:

Posting Komentar