Question

Помогите, пожалуйста Дано трехзначное число. Нужно определить есть ли в нем одинаковые цифры Паскаль. Начало сделала, а вот ,что дальше не знаюprogram dzkan;var x,a,b,c:integer;beginwriteln(Введите трехзначное число');readln(x);a:=x div 100;b:=x mod 100 div 10;c:=x mod 10;

Answer 1

Var a,b,c,d:integer;
Begin
readln(a);
b:=a mod 10;
c:=a mod 100 div 10; 
d:=a div 100;
If (b=c) or (b=d) or (c=d) then
writeln('YES')
else
writeln('No')
End.

Answer 2

To determine if a three-digit number has identical digits, you can compare its hundreds, tens, and units digits. Here's how you can modify your Pascal program to achieve this:

program dzkan;
var
  x, a, b, c: integer;
begin
  writeln('Введите трехзначное число:');
  readln(x);
  
  a := x div 100; // extract the hundreds digit
  b := (x mod 100) div 10; // extract the tens digit
  c := x mod 10; // extract the units digit
  
  if (a = b) or (a = c) or (b = c) then
    writeln('В числе есть одинаковые цифры')
  else
    writeln('В числе нет одинаковых цифр');
end.

In this modified program, we use the `div` operator to extract the hundreds digit (`x div 100`), the `mod` operator to extract the tens digit (`(x mod 100) div 10`), and the units digit (`x mod 10`). We then compare these digits using the `if` statement.

If any of the digits are the same, we output the message "В числе есть одинаковые цифры" (There are identical digits in the number). Otherwise, we output the message "В числе нет одинаковых цифр" (There are no identical digits in the number).

I hope this helps! Let me know if you have any further questions.