program deret_angka;
uses wincrt;
var
angka1 : integer;
angka2: integer;
begin
angka1:=1;
repeat
angka2:=angka1+3 ;
until
angka2=16;
write(angka2);
end.
Tampilkan postingan dengan label program deret angka. Tampilkan semua postingan
Tampilkan postingan dengan label program deret angka. Tampilkan semua postingan
Rabu, 04 Januari 2012
Langganan:
Postingan (Atom)