Помогите решить задачу в Qbasic

Strannik1941 · 09.09.2012, 17:48

Дано действительное число а, натуральное число n>1. Найти S = а(a+1)(а+2)…(а+n-1). (С помощью оператора цикла For Next)

AlexZir · 09.09.2012, 17:57

Пожалуйста:

Код:

rem Произведение
input"Введите значение числа a";a
input"Введите значение n";n
s=a
for i=1 to n-1 
s=s*(a+i)
next i
print"Произведение равно ";s
end

09.09.2012, 17:48	#1 (permalink)
Strannik1941 Новичок Регистрация: 04.06.2012 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Помогите решить задачу в Qbasic Дано действительное число а, натуральное число n>1. Найти S = а(a+1)(а+2)…(а+n-1). (С помощью оператора цикла For Next)

09.09.2012, 17:57	#2 (permalink)
AlexZir support Регистрация: 19.08.2007 Адрес: Зея Сообщений: 15,797 Записей в дневнике: 71 Сказал(а) спасибо: 166 Поблагодарили 203 раз(а) в 86 сообщениях Репутация: 75760	Пожалуйста: Код: rem Произведение input"Введите значение числа a";a input"Введите значение n";n s=a for i=1 to n-1 s=s*(a+i) next i print"Произведение равно ";s end

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070