Предмет: Информатика,
автор: Аноним
Вычислить значение N! ( N - натуральное, цикл Repeat... Until )
Ответы
Автор ответа:
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.
begin readln(N);
i:=0;
f:=1;
repeat
i:=i+1;
f:=f*i;
until i<N;
write(f);
end.
Похожие вопросы
Предмет: История,
автор: mariakicmanuk8
Предмет: Информатика,
автор: violettaryzova4
Предмет: Қазақ тiлi,
автор: kozhabaikausar12
Предмет: Математика,
автор: Аноним
Предмет: Химия,
автор: Аноним