Saya agak bingung dengan penjelasan soal di Toki Learning Center. Di contoh output tidak ada baris terakhir yang kosong. Saya mencoba membuat program seperti itu dengan perintah :
for i := n downto 2 do if (n mod i = 0) then writeln(i); write(1);
Saya upload jawaban saya namun hasilnya "wrong answer". Akhirnya, saya biarkan baris terakhir kosong dengan perintah :
for i := n downto 1 do if (n mod i = 0) then writeln(i);
kalo gini gimana?
BalasHapusvar
i,n:integer;
begin
readln(n);
for i:= n downto 1 do
begin
if n mod i=0 then
begin
writeln(i);
end;
end;
readln;
end.
Komentar ini telah dihapus oleh pengarang.
Hapusjikalau statement hanya berisi satu perintah, alangkah baiknya situ tidak menulis begin untuk memudahkan anda.
BalasHapusEx:
begin
readln(n);
for i:= n downto 1 do
____if n mod i=0 then
_______writeln(i);
end.
mohon bantuannya untuk mengoreksi apa yang salah :
BalasHapusprogram faktorbilangan;
var i,bil : integer;
begin
read(bil);
for i := 1 to bil do
begin
if (bil mod i = 0) then
writeln(bil div i);
end;
end.
Saya agak bingung dengan penjelasan soal di Toki Learning Center. Di contoh output tidak ada baris terakhir yang kosong. Saya mencoba membuat program seperti itu dengan perintah :
BalasHapusfor i := n downto 2 do
if (n mod i = 0) then
writeln(i);
write(1);
Saya upload jawaban saya namun hasilnya "wrong answer". Akhirnya, saya biarkan baris terakhir kosong dengan perintah :
for i := n downto 1 do
if (n mod i = 0) then
writeln(i);
Dan hasilnya benar.