Pascal задачи
Pascal задача. Найти наибольшую цифру натурального ряда чисел
С клавиатуры вводится натуральное число. Найти его наибольшую цифру. В ведённом ряде. Например, введено число 641946881 - наибольшее натуральное число в ряде 9. Разбор задачи на Pascal
Алгоритм решение задачи на Pascal
Переменная a — заданное число, переменная m — максимальная цифра. Предположим, что последняя цифра числа является максимальной.
Мы извлекаем его с помощью операции нахождения остатка при делении на 10.
Так как последнюю цифру мы уже рассмотрели, избавимся от нее с помощью операции деления на 10.
Далее в цикле мы извлекаем каждую цифру из конца числа и сравниваем ее со значением m. Если следующая цифра больше, мы присваиваем ее переменной m.
Также в цикле нужно избавиться от последней уже учтенной цифры. Цикл завершается, когда переменная a становится равной нулю, т.е. он будет выполняться до тех пор, пока переменная a больше нуля.
В конце программы мы выводим значение m. Это самая большая цифра исходного числа.
Решени задачи на языке Паскаль
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 г.
Почему мы выбираем Timeweb
TimewebЧто такое хостинг, как выбрать хостинг , почему мы остановились на Timeweb
Комментарии
Ваш комментарий будет первым !
