#pas
for ring:=1 to rings do
begin
// ПЕРЕНЁС
// т.к. значение k зависит только от FOR и считать его в цикле m - абсурд
k:=3*ring*ring-3*ring; //сумма последовательности.
m:=1;
while m/(6*ring)<=0.25 do
// k:=3*ring*ring-3*ring; //сумма последовательности.
begin
if m<=(1/(ring+1)) then
// Условие не выполнимо т.к.
// m никогда не будет ни МЕНЬШЕ ни РАВНО (минимальное m=1, а 1/ring+1 никогда не будет 1-цей)
begin
...........
...........
m:=m+1;
и т.д.
Ответов: 16884
Рейтинг: 1239
|
|||
|
|||
карма: 25 |
|