Написать программу, которая вычисляет произведение первых n целых положительных чисел

@Димасик · Регистрация: 18.11.2015

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

Написать программу, которая вычисляет произведение первых n целых положительных чисел. Количество чисел должно вводится во время работы программы (используя цикл с параметром). Нужно решить программу тремя способами цикл с предусловием и цикл с постусловием.

@CodeR · 06.06.2014, 07:21

For

Pascal

Var i,n:integer;
    pr:double;
Begin
    write('N: ');readln(n);
    pr:=1;
    For i:=2 to n do
     pr:=pr*i;
    writeln('Произведение = ',pr:0:0);
    readln;
End.

While

Pascal

Var i,n:integer;
    pr:double;
Begin
    write('N: ');readln(n);
    pr:=1;i:=2;
    While i<=n do
    Begin
      pr:=pr*i;
      inc(i);
    End;
    writeln('Произведение = ',pr:0:0);
    readln;
End.

Repeat

Pascal

Var i,n:integer;
    pr:double;
Begin
    write('N: ');readln(n);
    pr:=1;i:=2;
    Repeat
      pr:=pr*i;
      inc(i);
    Until i>n;
    writeln('Произведение = ',pr:0:0);
    readln;
End.

@Димасик 0 / 0 / 0 Регистрация: 18.11.2015 Сообщений: 5
		1
	Написать программу, которая вычисляет произведение первых n целых положительных чисел 05.06.2014, 16:44. Показов 6076. Ответов 1 Метки нет (Все метки) Написать программу, которая вычисляет произведение первых n целых положительных чисел. Количество чисел должно вводится во время работы программы (используя цикл с параметром). Нужно решить программу тремя способами цикл с предусловием и цикл с постусловием. 0

	06.06.2014, 07:21

Опции темы

Написать программу, которая вычисляет произведение первых n целых положительных чисел

Решение