<span>троеборье
))))))))))))))))</span>
Var y:real; i:integer;
begin
y:=1;
for i:=1 to 52 do
y:=y*(i*i*i)/(i*i+1);
writeln('y = ',y);
end.
Результат:
y = 2.23632650309607E+67
Ответ: N = 2, т.к. изначально N принимает значение 2, а чтобы войти в цикл нужно чтобы N было больше 8, следовательно вход в цикл не будет осуществлен
Весь код в прикрепленках. Нужно просто откомпилировать в любом IDE. Если есть вопросы, пиши в коментариях, всё объясню. Запустив программу, нужно просто указать полный путь к файлу, в котором записаны два числа. В каждом ряду записываешь по 1 числу. Максимальная длина числа в данном формате файла - 1024 символа. Поменяй на произвольный формат файла, к примеру "myFile.myextention", а так же укажи больший размер переменной в main функции, в которую считывается файл и всё, можешь писать любую длину числа, главное отбей сновой строки каждое.