Нужно написать программу в паскале АВС - Паскаль, Turbo Pascal, PascalABC.NET

DarkGhost · 21.04.2010, 15:42

R=3*5*7*9*11*13*15

Филантроп · 21.04.2010, 16:14

Код:

var r,i:real;
begin
r:=1;
i:=3;
while i<=15 do begin
r:=r*i;
i:=i+2;
end;
writeln(r:6:2);
end.

21.04.2010, 15:42	#1
DarkGhost Регистрация: 11.04.2010 Сообщений: 3	Нужно написать программу в паскале АВС R=3579111315

21.04.2010, 16:14	#2
Филантроп Форумчанин Регистрация: 12.04.2010 Сообщений: 134	Код: `var r,i:real; begin r:=1; i:=3; while i<=15 do begin r:=r*i; i:=i+2; end; writeln(r:6:2); end.` кому нужна помощь! жду в аське и скайпе!

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Нужно написать программу в паскале.	Nicer Dicer	Паскаль, Turbo Pascal, PascalABC.NET	4	21.04.2010 02:32
Нужно написать программу	Rock'n'rolla	Работа с сетью в Delphi	0	25.01.2010 20:05