Дано шестизначное число. Найти произведение последних четырёх его цифр.

Question

Дано шестизначное число. Найти произведение последних четырёх его цифр.

Comments

Паскаль АБС ?

---

Да

Answer 1

6:4=6
вот мой ответ
я думаю правильно

Comments

Мне нужно расписать

---

Вы,наверное,разделом ошиблись.

Answer 2

Program chislo;var ch,pr,so,s:integer;beginpr:=1;writeln('Введите шестизначное число');readln(ch);so:=ch mod 10000;pr:=so div 1000;pr:=pr*(so mod 10);pr:=pr*((so mod 100)div 10);pr:=pr*((so mod 1000)div 100);writeln(Произведение первых 4 чисел=',pr)end.

Comments

Не копируется с Паскаля нормально,почему-то