Помогите, пожалуйста:3 Дано четырёхзначное естественное число. Отыскать произведение цифр числа.

Помогите, пожалуйста:3 Дано четырёхзначное натуральное число. Найти творение цифр числа. Верно ли, что в данном числе нет цифры А(вводится с клавиатуры).

Задать свой вопрос
Стефания Вороницкая
И цикл у тебя зациклится, Енот)
Игорь Сысько
Ээ, почему? Я всегда этим способом число на числа делил, комфортно очень )
Алёна Брусина
var a,b,c,d,x,w:integer;beginreadln(x);a:=x div 1000;b:=x mod 10;c:=x div 100 mod 10;d:=x mod 100 div 10;w:=a*b*c*d;writeln(w);readln;end.
Есения Гамрат
Вот как верно сделать 1-ое условие. А второе?)
Анатолий Молий
*второе
Катя Шелиповская
read(v);if (v=a) or (v=b) or (v=c) or (v=d) then write('Число ',v,'в числе есть' );
Артём Тягло
Цифра v*
Нелли Эмбарк
Не поняла....Что?)
Кристина Модеетова
write('Число ',v,'в числе есть' );ну, описку сделал, v это ж цифра обязана быть, а не число ;D
Zolotchenko Stepan
:D ок
1 ответ
Держи! Можно сделать и проще намного, как и говорилось выше, через циклы, но так как для тебя такое решение видимо надобно, то держи конкретно такое :) 
Камилла Ханейская
Спасибо:3 Через циклы тоже знаю как решать, но нужно было именно так:)
Артём Сосненко
Моё чутьё не подвело :)
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

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

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт