Question

Напишите программу, которая получает с клавиатуры натуральное число и находит наибольшую цифру в его десятичной записи. Напишите программу, которая получает с клавиатуры натуральное число и определяет, есть ли в его десятичной записи одинаковые цифры, стоящие рядом. Паскаль!!!

Answer 1

Var
N,A:integer;
Begin
Write('N = ');Read(N);
A:=0;
While N>0 do
   Begin
   if (N mod 10) > A then A:= N mod 10;
   N:=N div 10;
   End;
Write(A)
End.




Var
N,A,B:integer;
C:boolean;
Begin
Write('N = ');Read(N);
A:=-1;
B:=-2;
C:=false;
While N>0 do
   Begin
   if A=B then C:=true;
   if N>0 then
      Begin
      A:=N mod 10;
      N:=N div 10;
      End;
   if A=B then C:=true;
   if N>0 then
      Begin
      B:=N mod 10;
      N:=N div 10;
      End;
   End;
if A=B then C:=true;
if C then Write('Есть')
else Write('Нет')
End.

Answer 2

Конечно, я могу помочь вам написать программу на языке Паскаль, которая будет находить наибольшую цифру в десятичной записи заданного натурального числа. Вот пример кода:

program FindLargestDigit;

var
  number, largestDigit, currentDigit: integer;

begin
  writeln('Введите натуральное число: ');
  readln(number);

largestDigit := 0;

while number > 0 do
  begin
    currentDigit := number mod 10;
    if currentDigit > largestDigit then
      largestDigit := currentDigit;
    number := number div 10;
  end;

writeln('Наибольшая цифра в числе: ', largestDigit);
  readln;
end.

Эта программа просит пользователя ввести натуральное число с клавиатуры. Затем она итеративно проходит по каждой цифре числа и сравнивает ее с текущей наибольшей цифрой. Если текущая цифра больше, она становится новой наибольшей цифрой. В конце программа выводит найденную наибольшую цифру.

Если вы также хотите написать программу, которая определяет, есть ли в десятичной записи числа одинаковые цифры, стоящие рядом, вот пример кода:

program CheckAdjacentDigits;

var
  number, currentDigit, previousDigit: integer;
  hasAdjacentDigits: boolean;

begin
  writeln('Введите натуральное число: ');
  readln(number);

hasAdjacentDigits := false;
  previousDigit := -1;

while number > 0 do
  begin
    currentDigit := number mod 10;
    if currentDigit = previousDigit then
    begin
      hasAdjacentDigits := true;
      break;
    end;
    previousDigit := currentDigit;
    number := number div 10;
  end;

if hasAdjacentDigits then
    writeln('В числе есть одинаковые цифры, стоящие рядом.')
  else
    writeln('В числе нет одинаковых цифр, стоящих рядом.');

readln;
end.

Эта программа работает аналогично предыдущей, но вместо поиска наибольшей цифры она проверяет, есть ли в числе две одинаковые цифры, стоящие рядом. Если такие цифры найдены, переменная `hasAdjacentDigits` устанавливается в `true`, и программа выводит сообщение об этом. В противном случае программа выводит сообщение, что в числе нет одинаковых цифр, стоящих рядом.

Надеюсь, эти программы помогут вам! Если у вас возникнут еще вопросы, пожалуйста, сообщите мне.