Если число четное, то вычислить произведение

@Stanislav163 · Регистрация: 04.03.2013

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

2.Дано целое число N оно больше нуля. Если N нечетное, то вывести произведение 1*3..... N, если N чётное. то вывести произведения 2*4...N. Чтобы избежать целочисленного переключения, вычислять это с помощью вещественное переменной и выводить его как вещественное число.

@АББА · 07.03.2013, 09:45

QBasic/QuickBASIC

CLS
INPUT n
IF n MOD 2=0 THEN x=2 ELSE x=1 
s=1
FOR i=x TO n STEP 2
s=s*i
NEXT i
?s

@Stanislav163 · 07.03.2013, 12:09 **[ТС]**

От души

@2aa35aa · 08.03.2013, 15:19

А вот эти как? Помогите пожалуйста! Очень прошу!
1) Сумма цифр трехзначного числа кратно 7. Само число также делится на 7. Найти все эти цифры.
2) Дано натуральное число n. Найти все делители этого числа

@АББА · 09.03.2013, 10:19

Сообщение от 2aa35aa

А вот эти как? Помогите пожалуйста! Очень прошу!
1) Сумма цифр трехзначного числа кратно 7. Само число также делится на 7. Найти все эти цифры.

QBasic/QuickBASIC

CLS
FOR i=1 TO 9
FOR j=0 TO 9
FOR u=0 TO 9
t=u*1+j*10+i*100
s=i+j+u
IF t MOD 7=0 AND s MOD 7=0 THEN ?t
NEXT u,j,i

Сообщение от 2aa35aa

А вот эти как? Помогите пожалуйста! Очень прошу!
2) Дано натуральное число n. Найти все делители этого числа

QBasic/QuickBASIC

CLS
INPUT n
FOR i=1 TO n
IF n MOD i=0  THEN ?i
NEXT i

@2aa35aa · 09.03.2013, 17:44

А через while и do wntil? Спасибо большое!

@Stanislav163 0 / 0 / 0 Регистрация: 04.03.2013 Сообщений: 22
		1
	Если число четное, то вычислить произведение 06.03.2013, 16:09. Показов 2622. Ответов 5 Метки нет (Все метки) 2.Дано целое число N оно больше нуля. Если N нечетное, то вывести произведение 13..... N, если N чётное. то вывести произведения 24...N. Чтобы избежать целочисленного переключения, вычислять это с помощью вещественное переменной и выводить его как вещественное число. 0

@Stanislav163 0 / 0 / 0 Регистрация: 04.03.2013 Сообщений: 22
	07.03.2013, 12:09 [ТС]	3
	От души 0

@2aa35aa 0 / 0 / 0 Регистрация: 08.03.2013 Сообщений: 7
	08.03.2013, 15:19	4
	А вот эти как? Помогите пожалуйста! Очень прошу! 1) Сумма цифр трехзначного числа кратно 7. Само число также делится на 7. Найти все эти цифры. 2) Дано натуральное число n. Найти все делители этого числа 0

@2aa35aa 0 / 0 / 0 Регистрация: 08.03.2013 Сообщений: 7
	09.03.2013, 17:44	6
	А через while и do wntil? Спасибо большое! 0

Если число четное, то вычислить произведение

Решение