Ввести с клавиатуры натуральное число N. И с помощью цикла вычислить: 2^N ,

N!

Program P;
Var
   I, N : Integer;
   S : Integer;
Begin
   S := 1;

   Write(Enter N );
   ReadLn(N);

   for I:=1 to N do
       S := S * 2;

   WriteLn(S);

   ReadLn;
End.

Оцени ответ

Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!