12.7.6. Napisati program koji će za učitanu vrijednost k izračunati vrijednost izraza i ispisati

Opis rješenja: Sa FOR petljom se dobijaju prirodni brojevi 1-k. IF i MOD 2 <> 0 THEN se koristi iz izdvajanje neparnih.

Listing programa:

REM 12700059;
CLS
INPUT "Do broja:"; k
S = 0
I = 1 
WHILE I <= k
  IF I MOD 2 <> 0 THEN S = S + I ^ 2
  I = I + 1
WEND
PRINT "SUMA = "; S
END

II Varijanta
REM 12700059;
CLS
INPUT "Do broja:"; k
S = 0
I = 1 
WHILE I <= k
  IF I MOD 2 <> 0 THEN S = S + I * I
  I = I + 1
WEND
PRINT "SUMA = "; S
END

Ispis na ekranu:

Index