Untuk
menampilkan bilangan kelipatan 3 dan kelipatan 5
dari angka 1 sampai 30 dalam bahasa pascal adalah
uses crt;
var I,A,B: integer;
begin
clrscr;
A:= 3;
B:= 5;
for I:= 1 to
6 do
begin
write (A,B);
A:= A+3;
B:= B+5;
end;
Readln;
End.
2 komentar
bos,,
bagaimana jika soalnya seperti ini :
Buatlah Algoritma untuk menampilkan bilangan kelipatan 3 dengan angka maksimum dimasukkan dari piranti masukan/keyboard.
Thanks for sharing pak :)
EmoticonEmoticon