Как найти наибольшую цифру в числе паскаль

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

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

Просмотров 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.

Источник

ac1d_buRn

0 / 0 / 1

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

Сообщений: 25

1

Наибольшая цифра в числе

13.03.2009, 18:52. Показов 6650. Ответов 3

Метки нет (Все метки)

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

Требуется ввести число и вывести на экран наибольшее из этих чисел. Не могу понять где ошибка в коде… =(

var n,Max:integer;

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

begin
  write('Vvedi chislo - '); readln(n);
  Max:=0;
 
  repeat
  n:=n div 10;
    if (Max < n) then Max:=n
    else (Max > n);
  until n=0;
 
  writeln(Max);
  readln;
  { TODO -oUser -cConsole Main : Insert code here }
end.



0

yanyk1n

4341 / 1473 / 680

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

Сообщений: 5,310

13.03.2009, 18:58

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

program chislo;
uses crt;
var max,n:longint;
begin
 max:=0;
 readln(n);
 repeat
  if n mod 10>max then max:=n mod 10;
  n:=n div 10;
 until n=0;
 writeln(max);
 readln;
end.



0

Vladiator

1574 / 645 / 79

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

Сообщений: 9,268

13.03.2009, 19:05

3

Цитата
Сообщение от ac1d_buRn

вывести на экран наибольшее из этих чисел

Может, цифру?

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

program xxx;
var
 i,n,t,e:integer;
 s:string;
begin
 readln(n);
 str(s,n); //Или наоборот
 n:=0;
 for i:=1 to length(s) do begin
  val(t,s,e); //Или, если ошибка, уберите "e"
  if t>n then n:=t;
 end;
 writeln('Наибольшая цифра - ',n);
 readln;
end.



0

4341 / 1473 / 680

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

Сообщений: 5,310

13.03.2009, 19:12

4

а разве N div 10 не есть цифра?



0
Источник

Оглавление:

  • 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.

Источник
var n,mx:integer;
begin
write('Введите целое число n=');
readln(n);
n:=abs(n);//число может быть и отрицательным
mx:=0;//пусть пока максимальная=0
while n>0 do//пока число не 0
 begin
  if n mod 10>mx then mx:=n mod 10;//отделяем последнюю цифру
                                   //и сравниваем с максимумом
  n:=n div 10; //сокращаем число в 10 раз
 end;
write('Максимальная цифра в числе=',mx)
end.

Источник

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