Информатика, опубликовано 2018-08-22 22:52:38 by Гость
Составте программу вычисления произведения чисел в диапозоне от 1до 10 1*2*3*4*....*10
Ответ оставил Гость
Program fac;
var n:integer;
function fact(n:integer):integer;
begin
if n=1 then fact:=1
else fact:=fact(n-1)*n;
end;
beginwrite(vvedi chislo: ); // число 10 ))
readln(n);
n:=fact(n);
writeln(otvet:, n);
read;
end.
Не нашли ответа?
Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.
Форма вопроса доступна на