В Паскале.Найти произведение всех цифр заданного четырехзначного числа.

Ответы:

Игорь Савченко

28-05-2014 01:26

Varn,ed,des,sot,tis:integer;S:real;BeginReadln(n);ed:=n mod 10;des:=n div 10 mod 10;sot:=n div 100 mod 10;tis:=n div 1000 mod 10;S:=ed*des*sot*tis;Writeln(s);end.

Также наши пользователи интересуются:

Картинка с текстом вопроса от пользователя DARINA PEREDRIY

⭐⭐⭐⭐⭐ Лучший ответ на вопрос «В Паскале.Найти произведение всех цифр заданного четырехзначного числа.» от пользователя DARINA PEREDRIY в разделе Экономика. Задавайте вопросы и делитесь своими знаниями.

Открой этот вопрос на телефоне - включи камеру и наведи на QR-код!

В Паскале.Найти произведение всех цифр заданного четырехзначного числа.

PHP Core Warning – yii\base\ErrorException

PHP Startup: Unable to load dynamic library '/usr/lib/php5.6/mysql.so' - /usr/lib/php5.6/mysql.so: cannot open shared object file: No such file or directory