Tugas Budi

**novay** Sun Nov 07, 2010 3:57 am

Tugas barusan yang dikasih sma pak Juli nih... Tugas Budi 439545

Sebenernya sih nih kerjaannya Bos DJ...
Tp gk papa deh... Tugas Budi 991764

Langsung z Scriptnya ya...

program Tugas1;

uses
WinCrt;

var
i,j,angka : integer;
nama : string;

begin
clrscr;
write('Masukkan Nama Lengkap Anda = ');readln(nama);
write('Masukkan Angka Favorite Anda = ');readln(angka);

writeln;
writeln('Hasil:');

for i:= 1 to angka do

begin
for j:= 1 to 1 do

write(i);write(' ');writeln(nama);

end;

readln;

end.

hasilnya kaya gini nih...

Hasilnya:

Benerkan... Tugas Budi 984400

AYOOOO... MAJU TERUS FTIKOMMM...