1)Ввести число N . Найти его фактериал. Использовать REPEART. (ЧЕРЕЗ While) 2)Вводить число с клавиатуры , пока не будет верно число 0. Через Pascal пожалуйста!!!
1)Ввести число N . Найти его фактериал. Использовать REPEART. (ЧЕРЕЗ While)
2)Вводить число с клавиатуры , пока не будет верно число 0.
Через Pascal пожалуйста!!!
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы