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

N!

Question

Информатика

Наса

13 июля, 19:54

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

N!

+5

Ответы (2)

Знаете ответ?

Еленя · Answer 1

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.

Наркисса · Answer 2

Program pr;

uses crt;

Var n, i:integer;

s:real;

Begin

s:=1;

Writeln ('Введите n') ;

readln (n) ;

For i:=1 to n do

Begin

s:=s*2;

Writeln (s) ;

end;

readln;

end.

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

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

N!