Мне кажется, что это слово <u>ФРАГМЕНТ</u>
Программа на паскале (программа - это один из способов записи алгоритма).
var n,p,i:integer;
begin
write('n = ');
readln(n);
p:=1;
for i:=1 to n do p:=p*i;
writeln('p = ',p);
end.
Пример:
n = 7
p = 5040
var
x, y, R, Oa, Ob: real;
begin
writeln('Введите радиус окружности R');
readln(R);
writeln('Введите координаты центра окружности');
readln(Oa, Ob);
writeln('Введите координаты точки');
readln(x, y);
if (x > (Oa - R)) and (x < (Oa + R)) and (y > (Ob - R)) and (y < (Ob + R)) then
writeln('Точка с заданными координатами лежит внутри круга')
else
writeln('Точка с заданными координатами лежит вне круга');
end.
Если все правильно, отметь решение как лучшее)
Program z1;
const nmax[100];
var a,b:array of integer[1..nmax];
var i,j:integer;
begin
i=1;
while not eol do
begin
read(a[i]);
i++;
end;
readln();
j=1;
while not eol do
begin
read(a[j]);
j++;
end;
write(abs(j-i));
end.