Помогите пожалуйста...

Question

Помогите пожалуйста...

---

Answer 1

Есть три явные ошибки: 1) начальное f:=0, а должно быть f:=1, иначе при умножении на ноль всегда будет ноль. 2) в условии цикла k

Comments

к сожалению кнопка нет кнопки изменить. видимо глюк какой-то. вчера не сохранялся ответ целиком. так что буду писать здесь

---

2) вместо k<n должно быть k<=n, т.к иначе последнее умножение не будет произведено

---

3) т.к. в теле цикла больше одного оператора, значит их надо взять в операторные скобки: begin и end.

---

Дальше то что я напишу, я бы не назвала ошибками, т.к. не видно начала и конца программы

---

4) после последнего оператора нет точки с запятой, но это не ошибка, если после него будет стоять end

---

5) нет описания переменных, нет ввода n, нет вывода f

---

И еще.... я бы вместо цикла while использовала цикл for, но это не обязательно

---

Ниже правильный текст программы:

---

program faktorial;
var n,k: integer; f: int64;
begin
readln (n);
k:=1;
f:=1;
while k<=n do begin <br> f:=f*k;
k:=k+1
end;
writeln (f)
end.

---

Понятно, спасибо :3