Var sum:real; x,n:integer; begin readln(n); begin sum:=0; for x:=1 downto 1/n*n do...

Question

Var sum:real; x,n:integer; begin readln(n); begin sum:=0; for x:=1 downto 1/n*n do sum:=sum+x; end; writeln(sum); end. В ЧЁМ ПРОБЛЕМА?ПОДСКАЖИТЕ ПОЖАЛУЙСТА.

Comments

В цикле. Там должны быть целые числа.

---

В счётчике. for x:=целое число(1 подходит) downto целое число(1/n*n - не подходит) do

Answer 1

в цикле for значения x должны быть типа integer, а деление автоматически дает real. +  ко всему 1/n*n  всегда будет давать единицу, т к это все равно что n/n. Что прога делать должна?

Answer 2

Просто нужно заменить integer на real из-за деления