uses wincrt;
var
a,i : integer;
begin
write ('Anak ayam yang turun = ');
readln (a);
for i:= a downto 1 do
begin
if i=1 then
write ('Anak ayam turun 1 mati satu tinggal induknya')
else
writeln ('Anak ayam turun ', i,' mati satu tinggal ',i-1);
end;
end.
var
a,i : integer;
begin
write ('Anak ayam yang turun = ');
readln (a);
for i:= a downto 1 do
begin
if i=1 then
write ('Anak ayam turun 1 mati satu tinggal induknya')
else
writeln ('Anak ayam turun ', i,' mati satu tinggal ',i-1);
end;
end.
0 Response to "Cara Membuat perulangan for anak ayam menggunakan program pascal"
Posting Komentar