Delphi 7. Циклы - Помощь студентам

Юрий2009 · 28.04.2009, 21:05

Нужно составить программу! Дано натуральное n. Вычислить: y = 1 * 3 * 5x... Заранее спасибо!!!

maladoy · 28.04.2009, 21:07

Код:

y:=1;
k:=1;
repeat
y:=y*k;
k:=k+2;
until k>n;

28.04.2009, 21:05	#1
Юрий2009 Пользователь Регистрация: 17.01.2009 Сообщений: 32	Delphi 7. Циклы Нужно составить программу! Дано натуральное n. Вычислить: y = 1 * 3 * 5x... Заранее спасибо!!!

28.04.2009, 21:07	#2
maladoy delphi-ст! Форумчанин Регистрация: 02.01.2009 Сообщений: 825	Код: `y:=1; k:=1; repeat y:=yk; k:=k+2; until k>n;` вступлю в команду разработчиков ПО на Delphi*

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
циклы	Кирилл17	Помощь студентам	4	30.10.2009 20:59
Delphi 7. Циклы	Юрий2009	Помощь студентам	0	27.04.2009 19:43
C++ циклы	KOLYTFR	Помощь студентам	5	26.04.2009 23:38
Циклы!	vlad1991	Паскаль, Turbo Pascal, PascalABC.NET	15	28.10.2008 22:07
Циклы While и Repeat в Delphi 7.0(Задач)	n01R	Помощь студентам	6	21.01.2008 23:41