Составьте программу, которая вычисляет произведение чисел от 1 до N

@Dionisiy · Регистрация: 25.01.2013

Помогите пожалуйста!
Составьте программу, которая вычисляет произведение чисел от 1 до N.
Значение N должно быть меньше 10,вводится с клавиатуры.

@mute · 17.03.2013, 18:13

Pascal

var p,n,i: integer;
begin
write('введите n: '); readln(n);
p:=1;
for i:=1 to n do
p:=p*i;
write('P=',p);
readln
end.

@Dionisiy · 17.03.2013, 18:18 **[ТС]**

mute, Спасибо!

@Dionisiy 0 / 0 / 1 Регистрация: 25.01.2013 Сообщений: 10
		1
	Составьте программу, которая вычисляет произведение чисел от 1 до N 17.03.2013, 17:23. Показов 16268. Ответов 2 Метки нет (Все метки) Помогите пожалуйста! Составьте программу, которая вычисляет произведение чисел от 1 до N. Значение N должно быть меньше 10,вводится с клавиатуры. 0

@Dionisiy 0 / 0 / 1 Регистрация: 25.01.2013 Сообщений: 10
	17.03.2013, 18:18 [ТС]	3
	mute, Спасибо! 0

Решение