Регистрация
sasha17210
Есть ответ 👍

Задача по черчению Выполнить на месте соответствующих основных видов фронтальный, горизонтальный и профильный разрезы. Заранее

264
452
Посмотреть ответы 1

Ответы на вопрос:

iraromanova2002
iraromanova2002
4,4(86 оценок)

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.

Объяснение:

Популярно: Другие предметы