Процедуры и Функции: Написать программу, которая считает произведение первых n натуральных чисел

@Avtay · Регистрация: 12.04.2013

Author24 — интернет-сервис помощи студентам

2.Написать программу, которая считает произведение первых n натуральных чисел. Число водится с клавиатуры.

Использовать процедуры или функции.

@antonboom · 17.05.2013, 15:15

Pascal

function proiz(var n:integer):real;
var i:integer;
    p:real;
begin
p:=1;
for i:=1 to n do begin
p:=p*i;
end;
proiz:=p;
end;
 
var n:integer;
begin
write('Ââåäèòå ÷èñëî: ');readln(n);
write(proiz(n));
end

@Avtay 0 / 0 / 0 Регистрация: 12.04.2013 Сообщений: 11
		1
	Процедуры и Функции: Написать программу, которая считает произведение первых n натуральных чисел 17.05.2013, 14:28. Показов 3722. Ответов 1 Метки нет (Все метки) 2.Написать программу, которая считает произведение первых n натуральных чисел. Число водится с клавиатуры. Использовать процедуры или функции. 0

	17.05.2013, 15:15

Процедуры и Функции: Написать программу, которая считает произведение первых n натуральных чисел

Решение