Question

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

Answer 1

program dz2;

var a,b,c,d,f,max:Integer;

begin

Writeln('введи число');

read(a);

b:= a div 1000;

c:= (a div 100) mod 10;

d:= (a div 10) mod 10;

f:= a mod 10;

max:=b;

if b<c then

max:=c;

if c<d then

max:=d;

if d<f then

max:=f;

Write(max);

end.

Answer 2

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

1. Ввести четырехзначное число с клавиатуры.
2. Выделить каждую цифру числа отдельно.
3. Найти наибольшую из этих цифр.
4. Вывести на экран результат.

Вот пример кода на языке Pascal:

pascalCopy code
program FindMaxDigit;

var
  number, digit, maxDigit: Integer;

begin
  Write('Введите четырехзначное число: ');
  Readln(number);

  // Предполагаем, что максимальная цифра - первая
  maxDigit := number div 1000;

  // Проверяем остальные цифры и обновляем максимальную цифру при необходимости
  digit := (number div 100) mod 10;
  if digit > maxDigit then
    maxDigit := digit;

  digit := (number div 10) mod 10;
  if digit > maxDigit then
    maxDigit := digit;

  digit := number mod 10;
  if digit > maxDigit then
    maxDigit := digit;

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

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