Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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.

Answer 5

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