Вычислить произведение цифр в трехзначном числе m. p.s. в программе pascal
124
432
Ответы на вопрос:
Var n,p: integer; begin write('введите натуральное трехзначное число: '); read(n); p: =(n mod 10); { младшая цифра } n: =n div 10; { отбросили младшую, число стало двухзначным } p: =p*(n mod 10)*(n div 10); writeln('произведение цифр числа равно ',p) end. тестовое решение: введите натуральное трехзначное число: 946 произведение цифр числа равно 216
Ну компилятор отдельный для ввода это слишком, а вот пример привожу: var x: integer; //переменная куда считывать begin read(x); //само считывание print('вы ввели: ' + x); //вывод результата end.
Популярно: Информатика
-
Cerega6708.07.2022 15:16
-
viktoriakovalch21.10.2022 11:17
-
маринька17.12.2022 19:16
-
Dailll11.08.2020 02:45
-
TheFoxySmile31.05.2021 18:36
-
СоНьКаАаАаА24.11.2022 02:01
-
evstratova0528.11.2021 13:03
-
ramina2518.06.2021 17:46
-
Vkomarova17.01.2022 09:14
-
Vzinko4218.12.2021 12:06