Составить Алгоритм в виде блок-схемы.
1. Дано целое четырёхзначное число. Используя операции div и mod, найти произведение его цифр.
2. Проверить истинность высказывания: «среди трёх данных целых чисел есть хотя бы одна пара совпадающих .

Ответ:

Объяснение:

Program NoName;

Var

a,b,c,d,e,sum:integer;

Begin

Write('Введите 4х значное число: ');

Readln(a);

b:=a mod 10;

c:=(a div 10) mod 10;

d:=(a div 100) mod 10;

e:=a div 1000;

sum:=b+c+d+e;

Write('Сумма цифр числа =  ',sum);

if (b=c) or (b=d) or (b=e) then writeln('Есть одна пара совпадающих чисел');

end.