uses wincrt;
var
m:integer;
cm,mm:longint;
begin
write('Masukkan bil dlm bentuk m: ');readln(m);
cm:=100*m;
mm:=1000*m;
writeln(m,'m= ',cm,'cm');
writeln(m,'m= ',cm,'cm');
end.
uses wincrt;
var
m:integer;
cm,mm:longint;
begin
write('Masukkan bil dlm bentuk m: ');readln(m);
cm:=100*m;
mm:=1000*m;
writeln(m,'m= ',cm,'cm');
writeln(m,'m= ',cm,'cm');
end.
0 komentar:
Posting Komentar