Question

ПОЖАЛУЙСТА ПОМОГИТЕ!!!! Написать программу Pascal для нахождения наибольшей цифры целого положительного числа. ​

Answer 1

Ответ:

program z1;

var a,m:integer;

begin

write ('Введите число: ');

readln(a);

m:=a mod 10;

repeat

if m<a mod 10 then m:=a mod 10;

a:=a div 10

until a=0;

write ('Наибольшая цифра: ',m)

end.

Объяснение:

Вводим число

Предполагаем, что последняя цифра числа наибольшая (переменная m)

Цикл:

сравниваем значение последней цифры числа с переменной m и если она больше, то присваиваем переменной m её значение

отбрасываем последнюю цифру числа

проверяем условие выхода из цикла

Выводим наибольшую цифру числа

Answer 2

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

pascalCopy code
program LargestDigit;
var
  number, digit, maxDigit: integer;
begin
  // Введите положительное число
  write('Введите положительное число: ');
  readln(number);

  // Инициализируем максимальную цифру как ноль
  maxDigit := 0;

  // Пока число больше нуля, продолжаем поиск максимальной цифры
  while number > 0 do
  begin
    // Получаем последнюю цифру числа
    digit := number mod 10;

    // Если текущая цифра больше максимальной, обновляем максимальную цифру
    if digit > maxDigit then
      maxDigit := digit;

    // Убираем последнюю цифру из числа
    number := number div 10;
  end;

  // Выводим максимальную цифру
  writeln('Наибольшая цифра в числе: ', maxDigit);
end.

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