Задача в Паскаль - Паскаль, Turbo Pascal, PascalABC.NET

Даша Виперкота · 11.03.2016, 22:48

Вычислить значение выражения 1 * 3 * 5 * ... * n , где n- нечетное число

min@y™ · 11.03.2016, 23:02

опять неинтересное УГ на 3 строки говнокода.
не хватает размера (разрядности) переменной только.

Вадим Мошев · 11.03.2016, 23:05

Код:

i:=1;
p:=1;

while i <= n do begin
	p:=p*i;
	inc(i, 2);
end;

writeLn('Ответ: ', p)

11.03.2016, 22:48	#1
Даша Виперкота Новичок Джуниор Регистрация: 11.03.2016 Сообщений: 1	Задача в Паскаль Вычислить значение выражения 1 * 3 * 5 * ... * n , где n- нечетное число

11.03.2016, 23:02	#2
min@y™ Цифровой кот Старожил Регистрация: 29.08.2014 Сообщений: 7,629	опять неинтересное УГ на 3 строки говнокода. не хватает размера (разрядности) переменной только. Расскажу я вам, дружочки, как выращивать грибочки: нужно в поле утром рано сдвинуть два куска урана...

11.03.2016, 23:05	#3
Вадим Мошев Старожил Регистрация: 12.11.2010 Сообщений: 8,568	Код: `i:=1; p:=1; while i <= n do begin p:=pi; inc(i, 2); end; writeLn('Ответ: ', p)` Последний раз редактировалось Вадим Мошев; 12.03.2016 в 17:23.*

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Задача паскаль	pomni	Помощь студентам	9	29.05.2014 16:00
Задача (паскаль)	Рина05	Помощь студентам	3	08.12.2011 19:06
Задача, паскаль. =)	Soul_fly	Паскаль, Turbo Pascal, PascalABC.NET	5	18.12.2010 16:15
Паскаль задача.	sulsher	Помощь студентам	1	09.11.2010 08:23
Паскаль(задача)	Roll1n	Паскаль, Turbo Pascal, PascalABC.NET	1	03.10.2009 03:41