profile
Опубликовано 5 лет назад по предмету Информатика от Kirochka99

вводится n. найти произведение натуральных чисел от 1 до n. 3 способами (циклами) для PaskalABC.

  1. Ответ
    Ответ дан Аккаунт удален
    1 способ:
    var n,i,pr:integer;
    begin
    read (n);
    pr:=1;
    if (n>=1) then
    begin
    for i:=1 to n do
    begin
    pr:=pr*i;
    end;
    end else
    writeln ('Неправильный ввод');
    writeln (pr);
    end.
    2 способ:
    var n,i,pr:integer;
    begin
    read (n);
    pr:=1;
    if (n>=1) then
    begin
    for i:=1 to n do
    begin
    pr*=i;
    end;
    end else
    writeln ('Неправильный ввод');
    writeln (pr);
    end.
    3 способ:
    var n,i:integer;
    function fact(n:integer):integer;
    begin
    if n=1 then fact:=1
    else fact:=fact(n-1)*n;
    end;
    begin
    read(n);
    i:=fact(n);
    writeln(i);
    end.






Самые новые вопросы