lets STUDY: deret pengurangan 3

Minggu, 16 Oktober 2011

deret pengurangan 3

23.38 | Diposting oleh arista WHIE | | Edit Entri

program deret_angka;
uses wincrt;
var
i,a : integer;
begin
a:=16;
for i:= 6 downto 1 do
begin
write (a,' ');
a :=a-3;
end;
end.

0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)