Предмет: Информатика, автор: Аноним

Вычислить значение N! ( N - натуральное, цикл Repeat... Until )

Ответы

Автор ответа: matematik50lvl
0
var i,f,N: integer;
begin readln(N);
i:=0;
f:=1;
repeat
i:=i+1;
f:=f*i;
until i<N;
write(f);
end.
Похожие вопросы
Предмет: Информатика, автор: violettaryzova4
Предмет: Қазақ тiлi, автор: kozhabaikausar12