Дано шестизначное число. Найти произведение последних четырёх его цифр.
Дано шестизначное число. Найти произведение последних четырёх его цифр.
Гость
Ответ(ы) на вопрос:
Гость6:4=6
вот мой ответ
я думаю правильно
Гость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.
Не нашли ответ?
Похожие вопросы