Mesaj Sayısı : 1274 Yaş : 31 Nerden : sakarya Kayıt tarihi : 05/05/08
Konu: Girilen Mesajı İstenilen Sayıda Yazdıran Program Cuma Haz. 06 2008, 12:17
program mesaj; uses wincrt; var msg:string; n:integer; begin writeln('yazmak istediginiz mesaj'); readln(msg); writeln('mesaji kac defa yazdırmak istiyorsunuz'); readln(n); for n:=1 to n do writeln (msg); end.