Добавил:
Studfiles2
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:Курсовая работа. / РЯП_Ксю / Our_compiler / Examples / Factorial
.pas program factorial;
var x,fact,i:integer;
begin
x:=5;
if (x>0) then
begin
i:=1;
repeat
fact:=fact*i;
i:=i+1;
until i>x;
end
else
if (x=0) then
fact:=1
else
fact:=0;
write('Factorial(',x,') = ',fact);
end.
var x,fact,i:integer;
begin
x:=5;
if (x>0) then
begin
i:=1;
repeat
fact:=fact*i;
i:=i+1;
until i>x;
end
else
if (x=0) then
fact:=1
else
fact:=0;
write('Factorial(',x,') = ',fact);
end.
Соседние файлы в папке Examples