49

Дано целое четырехзначное число. Вычислить произведение его цифр (создать…

29 августа 2022

Дано целое четырехзначное число. Вычислить произведение его цифр (создать программу напаскале)

категория: информатика

94

Program proga; var a: integer; Begin readln (a); writeln (a div 1000)*(a mod 1000 div 100)*(a mod 1000 mod 100 div 10)*(a mod 1000 mod 100mod 10); end.

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

Есть интересный вопрос? Задайте его нашему сообществу, у нас наверняка найдется ответ!
Делитесь опытом и знаниями, зарабатывайте награды и репутацию, заводите новых интересных друзей!
Задавайте интересные вопросы, давайте качественные ответы и зарабатывайте деньги. Подробнее...