Отдаю все накопленный баллы, помогите решить , у меня есть два

Отдаю все накопленный баллы, помогите решить , у меня есть два часа. Сам не могу, если не напишу мне СМЭРТ.
Составьте программу по данному алгоритму.

Задать свой вопрос
Аделина Гарькавцева
На Паскале
1 ответ

var N, K, M: integer;

begin

readln(N);

K:=1;

M:=1;

while Klt;=N do

begin

M:=M*K;

K:=K+1;

end;

writeln(M);

end;

, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт