Explicație:
1. Notam cu [x] partea întreaga a lui x
citește n(n nr. nat)
nr <--0
pentru i, n executa:
citește x(x nr. intreg)
dacă [sqrt(x)] = sqrt(x) atunci
nr <-- nr + 1
afișează nr
2.
nr <-- 0 (nr este nr. natural)
s <-- 0 (s nr. real)
citește n (n nr. real)
cat timp n ≠ 0 executa
dacă n > 100 atunci
s <-- s + n
nr <-- nr + 1
citește n
afișează s / nr
