Составить алгоритм в виде блок-схемы. 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.