Пожайлуста помогите 10 задачу по ИВТ срочно это очень важно умоляю!!!!!!

Question

Пожайлуста помогите 10 задачу по ИВТ срочно это очень важно умоляю!!!!!!

---

Comments

Что сделать то?программу написать?

Answer 1

Program asx;var  a, b, d, e: integer;begin  writeln(' четерехзначное число ');  readln(e);  a := 1;  d := 1000;  repeat    b := (e div d) mod 10;    a := a * b;    d := trunc(d / 10);  until d < 1;  writeln('Ответ: ', a);end.