Вася очень любил играть в карты. Однажды он решил написать программу, которая за него будет выбирать правильный ход. Программу он составил, осталось только ее проверить. Для проверки он решил запустить программу для всех возможных перемешиваний колоды. Он знает, что для каждой колоды программа работает ровно одну секунду. Необходимо определить, сколько секунд будет работать проверка на всех возможных перемешиваниях колоды, если в колоде N карт.

Question

Анна Федорова

Информатика

2 июля, 10:26

Вася очень любил играть в карты. Однажды он решил написать программу, которая за него будет выбирать правильный ход. Программу он составил, осталось только ее проверить. Для проверки он решил запустить программу для всех возможных перемешиваний колоды. Он знает, что для каждой колоды программа работает ровно одну секунду. Необходимо определить, сколько секунд будет работать проверка на всех возможных перемешиваниях колоды, если в колоде N карт.

+3

Ответы (1)

Знаешь ответ на этот вопрос?

Варвара Кузьмина · Answer 1

Запишем решение программы на языке Pascal ABC

program z1;

var

n, i:longint;

k:comp;

begin

assign (input,'input. txt');

reset (input);

assign (output,'output. txt');

rewrite (output);

read (n);

k:=1;

for i:=1 to n do

k:=k*i;

writeln (k:0:0);

close (input);

close (output);

end.