Составте программу вычисления произведения чисел в диапозоне от 1до 10 1*2*3*4*....*10
Составте программу вычисления произведения чисел в диапозоне от 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;
begin write('vvedi chislo: '); // число 10 ))
readln(n);
n:=fact(n);
writeln('otvet:', n);
read;
end.
Не нашли ответ?
Похожие вопросы