Найти произведение цифр целого положительного числа, введенного с клавиатуры?

Ananimertch 16 июн. 2020 г., 08:12:56

Dim i As Integer

Dim x As Integer

Dim Summ As Integer

i = InputBox("Введите целочисленное положительное число")

Summ = 1

For x = 0 To Len(CStr(i)) - 1 Summ * = CInt(Mid(CStr(i), x + 1, 1))

' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535

Next

MsgBox(Summ).

MissFeyka 29 мар. 2020 г., 20:24:00 | 5 - 9 классы

Найти количество положительных чисел среди введенных с клавиатуры четырёх чисел в паскале?

Найти количество положительных чисел среди введенных с клавиатуры четырёх чисел в паскале!

Avs19082005iis 27 янв. 2020 г., 19:17:19 | 10 - 11 классы

1. С клавиатуры вводится число от 100 до 9999?

1. С клавиатуры вводится число от 100 до 9999.

Если число трехзначное, то найти произведение его цифр.

Если четырехзначное , то найти сумму этих цифр.

2. Определить, состоит, ли двузначное число, введенное с клавиатуры из одинаковых цифр.

Pee006 15 июн. 2020 г., 00:10:56 | 5 - 9 классы

Среди n введенных с клавиатуры чисел, найти сумму положительных и произведение отрицательных чисел?

Среди n введенных с клавиатуры чисел, найти сумму положительных и произведение отрицательных чисел.

Karelin2005 5 мар. 2020 г., 14:57:28 | 10 - 11 классы

Для произвольного числа, введенного с клавиатуры, найти сумму цифр кратных двум и меньших восьми?

Для произвольного числа, введенного с клавиатуры, найти сумму цифр кратных двум и меньших восьми.

Natamay1980 19 июн. 2020 г., 09:52:40 | 5 - 9 классы

Найти произведение чисел введеных с клавиатуры, пока не будет введен 0?

Найти произведение чисел введеных с клавиатуры, пока не будет введен 0.

050778 7 апр. 2020 г., 07:08:51 | 5 - 9 классы

Помогите решить задачи в Паскале, пожалуйста) 1?

Помогите решить задачи в Паскале, пожалуйста) 1.

Найти и вывести на экран все целые числа из промежутка от 1 до K, которые заканчиваются на цифру 3.

K вводится с клавиатуры.

2. Вычислить сумму чётных и сумму нечётных целых чисел от 1 до 100 3.

С клавиатуры вводится целое положительное число.

Определить, сколько раз в этом числе встретилась цифра 5.

4. С клавиатуры вводится целое положительное число.

Определить, сколько в этом числе чётных цифр Заранее спасибо).

Maxim887 11 нояб. 2020 г., 06:39:03 | 5 - 9 классы

Написать программу для Pascal?

Написать программу для Pascal.

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

Luneva281983 5 мая 2020 г., 18:59:18 | 5 - 9 классы

С клавиатуры вводится целое положительное число?

С клавиатуры вводится целое положительное число.

Определить, сколько в этом числе чётных цифр.

(PASCAL).

Sofa08 17 июл. 2020 г., 03:23:43 | 5 - 9 классы

С клавиатуры вводится целое положительное число?

С клавиатуры вводится целое положительное число.

Определить, сколько раз в этом числе встретилась цифра 5.

Skajaz504 18 дек. 2020 г., 12:27:37 | 5 - 9 классы

Составить программу определяющую сумму цифр во введенном с клавиатуры целом числе?

Составить программу определяющую сумму цифр во введенном с клавиатуры целом числе.