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

Нужно сделать в Паскале:

Составьте программу, составьте программу, которая вычисляет произведение чисел от 1 до n. Где n вводится с клавиатуры.

  1. Ответ
    Ответ дан Gilbord
    var p,i, n:integer;

    begin
       p:=1;
       writeln('Введи n');
       readln(n);
       if n>=1 then
        begin
        for i:=1 to n do
        p:=p*i;
        writeln(p);
        end else writeln('n>=1');
    end.

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