Как найти максимальную цифру числа паскаль

Перейти к содержанию

Найти наибольшую цифру натурального числа

Просмотров 33.9к. Обновлено 19 апреля 2022

С клавиатуры вводится натуральное число. Найти его наибольшую цифру.

Например, введено число 764580. Наибольшая цифра в нем 8.

Пусть переменная a — заданное число, переменная m — максимальная цифра.

Предположим, что последняя цифра числа и есть максимальная. Извлечем ее с помощью операции нахождения остатка при делении на 10.

Поскольку последнюю цифру мы уже учли, то избавимся от нее с помощью операции деления нацело на 10.

Далее в цикле будем извлекать с конца числа каждую его цифру и сравнивать со значением m. Если очередная цифра больше, то будем присваивать ее переменной m.

Также в цикле надо избавляться от последней, уже учтенной, цифры. Цикл завершает свою работу, когда переменная a станет равной нулю, т. е. он работает, пока переменная a больше нуля.

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

Pascal



var

    a: longint;

    m: byte;

begin

    readln(a);

    m := a mod 10;

    a := a div 10;

    while a > 0 do begin

        if a mod 10 > m then

            m := a mod 10;

        a := a div 10;

    end;

    writeln(m);

end.

Язык Си



#include < stdio.h>

main() {

    int a, m;

    scanf("%d",&a);

    m = a%10;

    a = a/10;

    while (a > 0) {

        if (a%10 > m)

            m = a%10;

        a = a/10;

    }

    printf("%dn", m);

}

Python

найти максимальную цифру числа python



a = int(input())

m = a%10

a = a//10

while a > 0:

    if a%10 > m:

        m = a%10

    a = a//10

print(m)

КуМир



алг макс цифра числа

нач

  цел a, m

  ввод a

  m := mod(a,10)

  a := div(a,10)

  нц пока a > 0

    если mod(a,10) > m то

      m := mod(a,10)

    все

    a := div(a,10)

  кц

  вывод m

кон

Basic-256



input a

m = a%10

a = a10

while a > 0

        if a%10 > m then m = a%10

        a = a10

endwhile

print m

Источник

Pascal задача. Найти наибольшую цифру натурального ряда чисел

Pascal задачи

С клавиатуры вводится натуральное число. Найти его наибольшую цифру. В ведённом ряде. Например, введено число 641946881 — наибольшее натуральное число в ряде 9. Разбор задачи на Pascal

Алгоритм решение задачи на Pascal

Переменная a — заданное число, переменная m — максимальная цифра. Предположим, что последняя цифра числа является максимальной.

Мы извлекаем его с помощью операции нахождения остатка при делении на 10.

Так как последнюю цифру мы уже рассмотрели, избавимся от нее с помощью операции деления на 10.

Далее в цикле мы извлекаем каждую цифру из конца числа и сравниваем ее со значением m. Если следующая цифра больше, мы присваиваем ее переменной m.

Также в цикле нужно избавиться от последней уже учтенной цифры. Цикл завершается, когда переменная a становится равной нулю, т.е. он будет выполняться до тех пор, пока переменная a больше нуля.

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

Алгоритм решение задачи на Pascal

Решени задачи на языке Паскаль

var

a: longint;

m: byte;

begin

readln(a);

m := a mod 10;

a := a div 10;

while a > 0 do begin

if a mod 10 > m then

m := a mod 10;

a := a div 10;

end;

writeln(m);

end.

Pascal задачи
Все задачи на Паскаль

Репост статьи

2 февраля 2023 г.

Комментарии могут оставлять только зарегестрированные пользователи!

Комментарии

Ваш комментарий будет первым !

Напиши программу, которая принимает натуральное число n, а затем n чисел от 1 до 100. выведи максимальное из них, которое заканчивается на 1. если такого числа нет, напечатай «нет».

Pascal задача.Даны натуральные числа n, m. Получите сумму m последних цифр числа n.

Источник

2 / 2 / 0

Регистрация: 25.09.2012

Сообщений: 58

1

Вывести максимальную цифру числа

16.10.2012, 13:13. Показов 7244. Ответов 6

Студворк — интернет-сервис помощи студентам

для веденного целого числа вычислите максимальную цифру



0

CodeR

Фрилансер

3417 / 2814 / 3000

Регистрация: 08.02.2012

Сообщений: 8,549

Записей в блоге: 1

16.10.2012, 13:47

2
Pascal 
1
2
3
4
5
6
7
8
9
10
11
12

Var n,max:integer;
Begin
    write('Введите число: ');readln(n);
    max:=0;
    While n>0 do
    Begin
      if n mod 10>max then max:=n mod 10;
      n:=n div 10;
    End;
    writeln('Max цифра = ',max);
    readln;
End.



0

2 / 2 / 0

Регистрация: 25.09.2012

Сообщений: 58

16.10.2012, 13:48

 [ТС]

3

А если искать минимальное значение?



0

CodeR

Фрилансер

3417 / 2814 / 3000

Регистрация: 08.02.2012

Сообщений: 8,549

Записей в блоге: 1

16.10.2012, 13:50

4

Цитата
Сообщение от dimactek
Посмотреть сообщение

А если искать минимальное значение?

Pascal 
1
2
3
4
5
6
7
8
9
10
11
12

Var n,min:integer;
Begin
    write('Введите число: ');readln(n);
    min:=9;
    While n>0 do
    Begin
      if n mod 10<min then min:=n mod 10;
      n:=n div 10;
    End;
    writeln('Min цифра = ',min);
    readln;
End.



0

2 / 2 / 0

Регистрация: 25.09.2012

Сообщений: 58

16.10.2012, 14:10

 [ТС]

5

Ну если не трудно, то последние условие. Для веденношо целого числа вычислить среднее арефмитическое его цифр



0

Фрилансер

3417 / 2814 / 3000

Регистрация: 08.02.2012

Сообщений: 8,549

Записей в блоге: 1

16.10.2012, 14:11

6

Цитата
Сообщение от dimactek
Посмотреть сообщение

Ну если не трудно, то последние условие. Для веденношо целого числа вычислить среднее арефмитическое его цифр

Создайте новую тему!Один вопрос одна тема!



0

2 / 2 / 0

Регистрация: 25.09.2012

Сообщений: 58

16.10.2012, 14:17

 [ТС]

7



0
Источник

Формулировка задачи:

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

Входные данные
Входная строка содержит натуральное число N . гарантируется, что 0 < N ≤ 10^9 .

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

помогите пожалуйста с решением

Код к задаче: «Максимальная цифра»

textual

var n,max:integer;
begin
readln(n);
max:=0;
while n>0 do
 begin
  if n mod 10>max then max:=n mod 10;
  n:=n div 10;
 end;
write(max)
end.

Полезно ли:

15   голосов , оценка 4.000 из 5

Источник

Оглавление:

  • 1 Задача — Найти наибольшую цифру натурального числа
    — программирование на Pascal, Си, Кумир, Basic-256, Python

    • 1.1 Pascal
    • 1.2 Язык Си
    • 1.3 Python
    • 1.4 КуМир
    • 1.5 Basic-256

Задача — Найти наибольшую цифру натурального числа
— программирование на Pascal, Си, Кумир, Basic-256, Python

С клавиатуры вводится натуральное число. Найти его наибольшую цифру.

Например, введено число 764580. Наибольшая цифра в нем 8.

Пусть переменная a — заданное число, переменная m — максимальная цифра.

Предположим, что последняя цифра числа и есть максимальная. Извлечем ее с помощью операции нахождения остатка при делении на 10.

Поскольку последнюю цифру мы уже учли, то избавимся от нее с помощью операции деления нацело на 10.

Далее в цикле будем извлекать с конца числа каждую его цифру и сравнивать со значением m. Если очередная цифра больше, то будем присваивать ее переменной m.

Также в цикле надо избавляться от последней, уже учтенной, цифры. Цикл завершает свою работу, когда переменная a станет равной нулю, т. е. он работает, пока переменная a больше нуля.

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

Pascal

var
a: longint;
m: byte;
begin
readln(a);
m := a mod 10;
a := a div 10;
while a > 0 do begin
if a mod 10 > m then
m := a mod 10;
a := a div 10;
end;
writeln(m);
end.

Язык Си

#include <stdio.h>
main() {
int a, m;
scanf(«%d»,&a);
m = a%10;
a = a/10;
while (a > 0) {
if (a%10 > m)
m = a%10;
a = a/10;
}
printf(«%dn», m);
}

Python

a = int(input())
m = a%10
a = a//10
while a > 0:
if a%10 > m:
m = a%10
a = a//10
print(m)

КуМир

алг макс цифра числа
нач
цел a, m
ввод a
m := mod(a,10)
a := div(a,10)
нц пока a > 0
если mod(a,10) > m то
m := mod(a,10)
все
a := div(a,10)
кц
вывод m
кон

Basic-256

input a
m = a%10
a = a10
while a > 0
if a%10 > m then m = a%10
a = a10
endwhile
print m

Did you find apk for android? You can find new Free Android Games and apps.

Источник

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