Вычислите произведение всех натуральных чисел от 1 до n. n- натуральное, не превосходит 12. , , это ! (алгоритмы с циклической структурой, паскаль)

a1400434 a1400434    3   26.06.2019 15:30    0

Ответы
timkoa timkoa  21.07.2020 11:46
Program programma;
Uses crt;
var n,p,i: integer;
Begin clrscr;
      write('Введите число N = ');
      readln(n);
      p:=1;
     
if (n<=12) and (n>0) then begin
write('P=');
for i:=1 to n-1 do
    begin
    p:=p*i;
    write(i,'*');
    end;
p:=p*n;
write(n,'=', p);
end;
End.

или проще

Program programma;
Uses crt;

var n,p,i: integer;

Begin clrscr;
      write('Введите число N = ');
      readln(n);
      p:=1;
     
if (n<=12) and (n>0) then begin
write('P=');
for i:=1 to n do
    p:=p*i;
write(p);
end;
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика