12.5.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 p12500059;
CLS
INPUT "Do broja:"; k
S = 0
FOR I = 1 TO k
 IF I MOD 2 <> 0 THEN S = S + I ^ 2
 NEXT I
PRINT S
END

Ispis na ekranu:

Index