Работа 3.2 Упр.12 ГДЗ Семакин 10 класс (Информатика)

1. Сумма цифр заданного четырехзначного числа $$N$$ превосходит произведение цифр этого же числа на 1.

Пусть четырёхзначное число $$N$$ имеет цифры $$a, b, c, d$$. Тогда:

$$a = N \div 1000,\quad b = (N \bmod 1000) \div 100,\quad c = (N \bmod 100) \div 10,\quad d = N \bmod 10.$$

По условию нужно проверить, что сумма цифр числа больше произведения его цифр на 1:

$$a+b+c+d-1=a\cdot b\cdot c\cdot d.$$

В программе это записано как логическое выражение, которое выводит значение True или False.

var
n: integer;
a,b,c,d: integer;
begin
read(n);
a := n div 1000;
b := n mod 1000 div 100 div 10;
c := n mod 100 div 10;
d := n mod 10;
write(a+b+c+d-1 = a*b*c*d);
end.

Чтобы правильно выделить цифры, удобнее записать так:

var
n: integer;
a,b,c,d: integer;
begin
read(n);
a := n div 1000;
b := n mod 1000 div 100;
c := n mod 100 div 10;
d := n mod 10;
write(a+b+c+d-1 = a*b*c*d);
end.

Здесь выражение $$a+b+c+d-1 = a\cdot b\cdot c\cdot d$$ проверяет условие задачи.

Ответ

var
n: integer;
a,b,c,d: integer;
begin
read(n);
a := n div 1000;
b := n mod 1000 div 100;
c := n mod 100 div 10;
d := n mod 10;
write(a+b+c+d-1 = a*b*c*d);
end.