Q Basic Alıştırma sayıların karesini bulma
Q Basic Alıştırma sayıların karesini bulma q basic , alıştırma, kod yazılım, visual basic kod yazılım, q basic alıştırma Kod: Kodu kopyalamak için üzerine çift tıklayın! CLS
10 PRINT "N'I GIRIN"
20 INPUT N
30 S = 1
40 T = 0
50 T = T + S^2
60 S = S + 1
70 IF S > N THEN GOTO 80 ElSE GOTO 50
80 PRINT T
90 END
__________________ SusKun ve Sessiz Mürekkep... Kullanıcı imzalarındaki bağlantı ve resimleri görebilmek için en az 20 mesaja sahip olmanız gerekir ya da üye girişi yapmanız gerekir.
|