Опубликовано 6 лет назад по предмету Информатика от vrskdvdbs

Дано трехзначное число. Найдите произведение его цифр. Использовать оператор условия или цикла запрещено

Ответ

Ответ дан vladrus113

var a,a1,a2,a3:integer;
begin
read(a);
a1:=a div 100;
a2:=(a div 10) mod 10;
a3:=a mod 10;
writeln(a1*a2*a3);
end.
Ответ

Ответ дан Луни7

Не знаю, может так:
ввод х
S=х mod 10
х= х div 10
S=S* x mod 10
x = x div 10
S=S*x

или вот так скорее, вернее короче:
ввод x
S=x mod 10 * (x div 10) mod 10 * ((x div10) div10) mod 10

вывод S

div 10 - делим число на 10 и берем целую часть (то что перед запятой, например 25/10=2,5, ответ 2)
mod 10 - делим число на 10 и берем остаток (то что после запятой, например 23/10=2,3, ответ 3)

Самые новые вопросы

Математика - 5 лет назад

Решите уравнения: а) 15 4 ∕19 + x + 3 17∕19 = 21 2∕19; б) 6,7x - 5,21 = 9,54

Информатика - 5 лет назад

Помогите решить задачи на паскаль.1) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти произведение всех элементов массива.2) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти сумму четных элементов массива.3) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива.4) дан массив случайных чисел (количество элементов вводите с клавиатуры). найти максимальный элемент массива среди элементов, кратных 3.

География - 5 лет назад

Почему япония - лидер по выплавке стали?

Математика - 5 лет назад

Чему равно: 1*(умножить)х? 0*х?

Русский язык - 5 лет назад

В каком из предложений пропущена одна (только одна!) запятая?1.она снова умолкла, точно некий внутренний голос приказал ей замолчать и посмотрела в зал. 2.и он понял: вот что неожиданно пришло к нему, и теперь останется с ним, и уже никогда его не покинет. 3.и оба мы немножко удовлетворим свое любопытство.4.впрочем, он и сам только еле передвигал ноги, а тело его совсем застыло и было холодное, как камень. 5.по небу потянулись облака, и луна померкла.