в чем тут ошибка ?

[madflyzero131]

program z3;
var n,per,x,s1,p,i:integer;
begin
s1:=0;
p:=1;
writeln('BBeDuTe 4ucJIo:');
read(n);
x:=n;
while x<>0 do
begin
per:=x mod 10;
for i:=1 to per do
begin
p:=p*i;
end;
s1:=s1+p;
x:=x div 10;
end;
if n=s1 then writeln('it is factorion') else writeln('it is not factorion');
end.

[bonjovi]

Вообще-то когда вы запускаете программу вам должно написать какая и где у вас ошибка

[bonjovi]

program z3;
var n,per,x,s1,p,i:integer;
begin
s1:=0;
p:=1;
writeln('BBeDuTe 4ucJIo:');
read(n);
x:=n;
while x<>0 do
begin
per:=x mod 10;
for i:=1 to per do
begin
p:=p*i;
end;
s1:=s1+p;
x:=x div 10;
end;
if n=s1 then writeln('it is factorion') else writeln('it is not factorion');
end.

[Alex11223]

Дык ошибка-то в чем проявляется? Если не компилируется, то какую ошибку выдает? Я увидел только непонятную конструкцию per:x, видимо = пропущен, дальше не ломал глаза.

И используйте тег [CODE] (значок # ) для сохранения форматирования и подсветки кода в сообщении. Кнопка Правка снизу справа.

[madflyzero131]

1,2,145,40485-факторионы,но эта программа 145 и 40585 не считает факторионами. почему?

[ViktorR]

program z3;
var n,per,x,s1,p,i:integer;
begin
s1:=0;

writeln('BBeDuTe 4ucJIo:');
read(n);
x:=n;
while x<>0 do
begin
per:=x mod 10;
p:=1; {только в этом случае правильно считается факториал}
for i:=1 to per do
begin
p:=p*i;
end;
s1:=s1+p;
x:=x div 10;
end;
if n=s1 then writeln('it is factorion') else writeln('it is not factorion');
end.

[LordKAS]

Подскажите пожалуйста в чем моя ошибка?
нужно было найти длину окружности-c, и площадь-s.


Никак не могу найти ошибку.

[McFrey]

LordKAS, во первых (с позволения модераторов скажу) если ты хочешь что то спросить научись создавать новую тему))
во вторых....мне интересно что же он у тебя за "pi" считает?...опиши это как константу

const pi=3.14;

[Niro]

мне интересно что же он у тебя за "pi" считает?

Всё правильно он считает, Паскаль "знает" число Пи
Ошибка в том, что в строке

s:=Pi*sqr(r)

наступает переполнение результата, т.к. r - у вас типа integer, замените его на longint и всё будет ок)