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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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.