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

lucaa lucaa    3   04.06.2019 07:20    2

Ответы
zlatovlaska zlatovlaska  05.07.2020 10:50
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.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика