Составить Алгоритм в виде блок-схемы. 1. Дано целое ...
Составить Алгоритм в виде блок-схемы. 1. Дано целое четырёхзначное число. Используя операции div и mod, найти произведение его цифр. 2. Проверить истинность высказывания: «среди трёх данных целых чисел есть хотя бы одна пара совпадающих .
Есть ответ
12.12.2022
465
Ответ
Ответ:
Объяснение:
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.
Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
Просто нажмите на кнопку "Подарить".
12.12.2022
