Вычисление произведения

@xardover · Регистрация: 01.06.2011

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

составить программу вычисления произведения всех натуральных четных чисел не превышающих N

Kodzaev · 13.06.2011, 22:39

Pascal

 uses crt;
var s:byte;
    n:real;
 
 function fact(x:byte):real;
   begin
    if x=0 then fact:=1
     else fact:=fact(x-1)*x;
    end;
 
begin
 clrscr;
  writeln('Введите число');
  readln(s);
  n:=fact(s);
  writeln('произведение всех чисел не превышающих N = ',n:0:0);
 readkey;
end.

@Ev[G]eN · 13.06.2011, 22:53

Pascal

var
 n, i, pr: integer;
begin
 pr:=1;
 readln(n);
  for i:=1 to n do
   if i mod 2 = 0 then pr:=pr*i;
 writeln(pr);
end.

@xardover 0 / 0 / 0 Регистрация: 01.06.2011 Сообщений: 4
		1
	Вычисление произведения 13.06.2011, 22:16. Показов 1035. Ответов 2 Метки нет (Все метки) составить программу вычисления произведения всех натуральных четных чисел не превышающих N 0

	13.06.2011, 22:53

Опции темы

Вычисление произведения

Решение