dedy epriyandi
Rabu, 07 November 2012
program kubus;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
V,s:real;
begin
write('volume Kubus ');readln;
write('panjang sisi kubus ');readln(s);
V:=s*s*s;
write('volume kubusnya adalah.. Eng Ing Eeenngg..:',V:2:2);readln;
end.
Tidak ada komentar:
Posting Komentar
Posting Lebih Baru
Beranda
Langganan:
Posting Komentar (Atom)
Tidak ada komentar:
Posting Komentar