Информатика, опубликовано 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.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на