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.
В ЧЁМ ПРОБЛЕМА?ПОДСКАЖИТЕ ПОЖАЛУЙСТА.
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.
В ЧЁМ ПРОБЛЕМА?ПОДСКАЖИТЕ ПОЖАЛУЙСТА.
More Questions From This User See All
Answers & Comments
в цикле for значения x должны быть типа integer, а деление автоматически дает real. + ко всему 1/n*n всегда будет давать единицу, т к это все равно что n/n. Что прога делать должна?
Просто нужно заменить integer на real из-за деления