12.5.6. Napisati program koji će za učitanu vrijednost k izračunati vrijednost izraza i ispisati
![](../120/12500059.gif)
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:
![](../../pascal/pascal_prir/120/120_izvedi/12500059.gif)
Index
|