Регистрация
ppapsd
08.12.2020 08:02
Информатика
Есть ответ 👍

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. в чём проблема? подскажите .

119
337
Посмотреть ответы 3

Ответы на вопрос:

abi182
abi182
4,8(100 оценок)

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

ottom06
ottom06
4,8(88 оценок)

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

Alinatkd
Alinatkd
4,4(40 оценок)

1.в.Автор легко же можно в инете найти

Популярно: Информатика