// PascalABC.NET 3.1, сборка 1219 от 16.04.2016
begin
var p:=1.0;
for var i:=1 to ReadInteger('n=') do
p*=sqr(i)/(sqr(i+1)+2);
Writeln(p)
end.
<u><em>Тестовое решение</em></u>n= 10
0.00308222811150801
Документ - это файл, содержащий какую-либо информацию (например .docx Microsoft Office Word)
Отличается он возможным наличием изображений или форматированного текста (курсив и т.д.)
Для печати используется принтер
1) пункт New
2) верно
3) пункт Print
Uses crt;
var a,b,n,i:integer;
mas:array[1..100] of integer;
begin
textcolor(white);
writeln('Введите a,b,n:');
read(a,b,n);
writeln('Введите элементы массива:');
for i:=1 to n do
read(mas[i]);
for i:=1 to n do
begin
if (mas[i]>a) and (mas[i]<b) then
textcolor(yellow)
else
textcolor(white);
write(mas[i],' ');
end;
textcolor(white);
<span>end.</span>