Question

1)Ввести число N . Найти его фактериал. Использовать REPEART. (ЧЕРЕЗ While)
2)Вводить число с клавиатуры , пока не будет верно число 0.
Через Pascal пожалуйста!!!

Answer 1

1.

var res,i,x:integer;
begin
read(x);
i:=1;
res:=1;
while i<=x do
begin
res=res*i;
i:=i+1;
end;
write(res);
end.
2.var x:integer;
begin
x:=-1;
while x<>0 read(x);
end.