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

Question

Информатика

Анисим

11 февраля, 22:08

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

+1

Ответы (2)

Знаете ответ?

Ермий · Answer 1

6:4=6

вот мой ответ

я думаю правильно

Олег · 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.