IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Q Basic Alıştırma sayıların karesini bulma

- Programlama (https://www.ircforumlari.net/programlama/)

- - Q Basic Alıştırma sayıların karesini bulma (https://www.ircforumlari.net/programlama/719731-q-basic-alistirma-sayilarin-karesini-bulma.html)

Kaf_Dağı

21 Aralık 2015 12:36

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:

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

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 22:14.