Информатика, опубликовано 2018-08-22 20:24:48 by Гость

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

Ответ оставил Гость

1.

var res,i,x:integer;
begin
read(x);
i:=1;
res:=1;
while ibegin
res=res*i;
i:=i+1;
end;
write(res);
end.
2.var x:integer;
begin
x:=-1;
while x0 read(x);
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.