Напишите программу, которая получает с клавиатуры натуральное число и находит наибольшую цифру в его десятичной записи. Напишит
Напишите программу, которая получает с клавиатуры натуральное число и находит наибольшую цифру в его десятичной записи.
Напишите программу, которая получает с клавиатуры натуральное число и определяет, есть ли в его десятичной записи одинаковые цифры, стоящие рядом.
Паскаль.
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.
Получить самую большую цифру в числе
Можно использовать функцию max для строкового представления числа.
Пример:
Цифры будут сравниваться на основе ASCII кода их символьного представления. Это возможно, потому что их коды находятся последовательно от меньшего к большему (48-57).
Можно привести число к строке, чтобы на каждой итерации получить отдельную цифру.
Пример:
Всё ещё ищете ответ? Посмотрите другие вопросы с метками python или задайте свой вопрос.
Site design / logo © 2022 Stack Exchange Inc; user contributions licensed under cc by-sa. rev 2022.6.10.42345
Нажимая «Принять все файлы cookie», вы соглашаетесь, что Stack Exchange может хранить файлы cookie на вашем устройстве и раскрывать информацию в соответствии с нашей Политикой в отношении файлов cookie.
Напишите программу которая получает с клавиатуры натуральное число и находит наибольшую цифру в его
Задания Д24 C1 № 15934 
Дано натуральное число N (N ≤ 10 9 ). Необходимо найти и вывести наибольшую чётную цифру в десятичной записи N или вывести сообщение «NO», если таких цифр нет.
Для решения этой задачи ученик написал программу, но, к сожалению, его программа неправильная.
Ниже эта программа для Вашего удобства приведена на пяти языках программирования.
DIM N, D, M, T AS INTEGER
IF D MOD 2 = 0 AND D > M THEN
var N, d, m, t: integer;
using namespace std;
Последовательно выполните следующее.
1. Напишите, что выведет эта программа при вводе N = 864.
2. Какое наибольшее число может стать результатом работы этой программы? Приведите пример числа N, при вводе которого программа выведет такой ответ.
3. Найдите в программе все ошибки (известно, что их не более двух). Для каждой ошибки выпишите строку, в которой она допущена, и приведите эту же строку в исправленном виде.
Достаточно указать ошибки и способ их исправления для одного языка программирования.
Обратите внимание: Вам нужно исправить приведённую программу, а не написать свою. Вы можете только заменять ошибочные строки, но не можете удалять строки или добавлять новые. Заменять следует только ошибочные строки: за исправления, внесённые в строки, не содержащие ошибок, баллы будут снижаться.
1. При вводе N = 864 программа выведет число 10.
2. Наибольший возможный результат работы программы равен 14. Такой результат будет выведен, например, при N = 86 и N = 842.
Программа содержит две ошибки.
1) Неверное начальное значение максимума. В результате не различаются ситуации, когда в числе вообще нет чётных цифр и когда все чётные цифры — нули.
2)Вместо замены максимального значения происходит вычисление суммы.
Пример исправления для языка Паскаль:
Первая ошибка
Вместо −1 возможно использование любого другого отрицательного числа.
Вторая ошибка:
В программах на других языках ошибочные строки и их исправления аналогичны.
Незначительной опиской, не влияющей на оценку, следует считать отсутствие служебных слов и знаков после содержательной части исправления.
Условие цикла в строке while N > 1 do begin похоже на ошибку, но ошибкой не является, так как не приводит к неверным результатам. Это условие приводит к тому, что если первая цифра числа равна 1, эта цифра не будет рассматриваться, но так как 1 — нечётная цифра, на результат это не влияет.
место одна из следующих ситуаций.
1. Выполнены два первых действия, найдена и исправлена одна ошибка в программе, ни одна верная строка не названа ошибочной.
2. Выполнены два первых действия, найдены и исправлены две ошибки в программе, одна верная строка названа ошибочной.
1. Выполнены два первых действия. При этом несущественно, насколько правильно выполнено третье действие.
2. Найдены и исправлены две ошибки в программе, не более чем одна верная строка названа ошибочной. При этом несущественно, насколько правильно выполнены действия 1 и 2.