samsul muarif
Minggu, 27 November 2016
turbopascal.,.,.,.,.,.,,
tentang perulangan
sebagai berikut:
uses crt;
var
a:byte
begin
clrscr
a:=20 ;
begin
while a>=10 do
begin
writeln (a);
a:=a-2;
end;
readln
end.
Postingan Lebih Baru
Postingan Lama
Beranda
Langganan:
Postingan (Atom)
Contoh lamaran pekerjaan & CV
Banyuwangi,Jum'at 24 Mei 2019 Kepada Yth: ...