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

Написать программу нахождения произведения чисел от
1 до n.Для паскаль abc 

  1. Ответ
    Ответ дан rustikpro
    uses crt;
    var
    a,n,i:integer;
    begin
    readln(n);
    a:=1;
    for i:=1 to n do begin
    a:=i*a;
    writeln(i,'.',a);
    end;
    writeln('Ответ=',a);
    end.
Самые новые вопросы