А)Начало ->
Ввод массива ->
Ввод X ->
Ввод Y ->
Если X>Y
->no->End
->yes->
p=0 ->
∨-> если элемент массива (p) > X, элемент массива (p) = X ->
если элемент массива (p) < Y, элемент массива (p) = Y ->
p = p + 1 -> если p больше размера массива
если нет -> Возврат на ∨
если да -> Вывод массива -> Конец
б)Начало ->
Ввод массива ->
p=0 ->
∨-> если элемент массива (p) \%(остаток от деления на) 3=0
->yes->
->no-> элемент массива (p) =элемент массива (p)\%3
->p=p+1
->если p больше размера массива
если нет -> Возврат на ∨
если да -> Вывод массива -> Конец
Var n,p,k,i,j:integer; f:boolean;
begin
write('n = ');
readln(n);
p:=2;
for i:=2 to n do
begin
f:=false;
while not f do
begin
p:=p+1;
k:=0;
for j:=2 to round(sqrt(p)) do
if p mod j = 0 then k:=k+1;
f:=k=0;
end;
end;
writeln(p);
end.
Пример:
n = 25
97
Вот, например программа поиска корня уравнения методом ДИХОТОМИИ:
program dichotom;
uses Crt;
var a, b, eps, xn, y, psy: real;
n: integer;
function f(x:real):real;
begin
f:=sin(x)-1/x;
end;
begin
ClrScr;
a:=2;
b:=3;
eps:=0.01;
n:=0;
y:=f(a);
while y>=eps do
begin
n:=n+1;
xn:=(a+b)/2;
y:=f(xn);
if y>=eps then
if f(a)*y<0 then b:=xn else a:=xn;
end;
psy:=xn;
WriteLn(' X = ',psy:5:2);
ReadLn;
end.
Не можешь выполнить код, что ли? Тупо переписываешь его на JS и засовываешь в адресную строку:
javascript:var B=[];for(var i=0;i<13;i++)B.push([]);B[1][1]=2;for(var k=2;k<=12;k++)for(var n=1;n<=k;n++){B[k][n]=n*k-B[k-1][n];B[n][k]=B[k][n];}var c=0;for(var k=1;k<13;k++)for(var n=1;n<13;n++)if(B[k][n]%2==0)c++;alert(c);
Результат на экране.