Помогите, пожалуйста: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.
Вот как правильно сделать первое условие. А второе?)
*второе
read(v);if (v=a) or (v=b) or (v=c) or (v=d) then write('Число ',v,'в числе есть' );
Цифра v*
Не поняла....Что?)
write('Число ',v,'в числе есть' );ну, описку сделал, v это ж цифра должна быть, а не число ;D
:D ок
Держи! Можно сделать и проще намного, как и говорилось выше, через циклы, но так как тебе такое решение видимо надо, то держи именно такое :)
Спасибо:3 Через циклы тоже знаю как решать, но нужно было именно так:)
Моё чутьё не подвело :)