Program n5;
var p: real;
i,n: integer;
begin
p:=1;
readln(n);
for i:=1 to n do p:=p*(2*i)/(2*i+1);
writeln(p);
end.
Program n1;
var sum,k,a: integer;
begin
readln(a);
sum:=0;
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) then
begin
k:=k+1;
sum:=sum+a;
end;
readln(a);
end;
if k=0 then write('NO') else write(sum/k);
end.
Program n2;
var k,a: integer;
begin
readln(a);
k:=0;
while a<>0 do
begin
if (a>99) and (a<1000) and (a mod 4=0) then k:=k+1;
readln(a);
end;
write(k);
end.
// Код на паскале
var
a, b: array [1 .. 8] of longint;
i, ans1, ans2: byte;
function check(var x: longint): boolean; // функция проверки числа на четность
begin
if x mod 2 = 0
then check := true
else
check := false;
end;
begin
ans1 := 0;
ans2 := 0;
for i := 1 to 8 do
begin
read(a[i]); //читаем число а_і
if check(a[i]) then //если четное, то ...
inc(ans1); //увеличиваем ответ_1 на 1
end;
for i := 1 to 8 do
begin
read(b[i]); //читаем число b_i
if not check(b[i]) then // если нечетное, то ...
inc(ans2); // увеличиваем ответ_2 на 1
end;
writeln('Количество четных чисел в первой последовательности = ', ans1);
writeln('Количество нечетных чисел во второй последовательности = ', ans2);
end.
<span><span>Выделите страницы или абзацы, к которым нужно применить книжную или альбомную ориентацию.ПРИМЕЧАНИЕ : Если для изменения ориентации страницы выделена только часть текста на странице, то выделенный фрагмент текста будет помещен на отдельной странице, а окружающий текст — на других страницах.</span>На вкладке Разметка страницы в группе Параметры страницы нажмите кнопку Поля. Нажмите кнопку Настраиваемые поля.На вкладке Поля выберите Альбомная или Книжная.В списке Применить выберите пункт К выделенному тексту.</span>
ПРИМЕЧАНИЕ : Перед фрагментом текста с новой ориентацией страниц и после него будут автоматически вставлены разрывы раздела. Если документ уже разбит на разделы, можно щелкнуть в любом месте нужного раздела (либо выделить их несколько), а затем изменить ориентацию страниц только в выбранных разделах.
К началу страницы
Если в этой статье нет ответа на ваш вопрос, вы можете обратиться за помощью к агенту поддержки OmniTech. В течение ограниченного периода пользователям, обратившимся впервые, предоставляется бесплатная поддержка (до 15 минут).
Не уверенна , но вроде так