Информатика, опубликовано 2018-08-22 22:44:45 by Гость

ИНФОРМАТИКА!!! Вычислить значение N! (n - натуральное, цикл while)

Ответ оставил Гость

Program asd;
USES crt;
var n,s,q: integer;
BEGIN
Clrscr;
Write(Vvedite n );
Readln(n);
S:=1;
Q:=1;
while qbegin
q:=q+1;
s:=s*q;
end;
writeln(Otvet: ,s);
Readln;
END.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.