varsum:real;x,n:integer;beginreadln(n);beginsum:=0;for x:=1 downto 1/n*n

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.
В ЧЁМ Неувязка?ПОДСКАЖИТЕ ПОЖАЛУЙСТА.

Задать свой вопрос
Валентина Пупукина
В цикле. Там обязаны быть целые числа.
Vanek Pokruchin
В счётчике. for x:=целое число(1 подходит) downto целое число(1/n*n - не подходит) do
2 ответа

Просто необходимо поменять integer на real из-за разделения


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

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт