Mesaj Sayısı : 1274 Yaş : 31 Nerden : sakarya Kayıt tarihi : 05/05/08
Konu: Çarpım Tablosu Programı Cuma Haz. 06 2008, 12:07
program carpim; uses wincrt; var i,j:integer; begin clrscr; for i:=1 to 10 do begin for j:=1 to 10 do writeln(i,'x',j,'=',i*j); writeln('Devam etmek için Enter''a basın'); readkey; end; end.