дано целое число N найти самую максимальную цифру этого числа
10-11 класс
|
var n,x,max:integer;
begin
readln(n);
while n>0 do
begin
x:=n mod 10;
if x>max then max:=x;
n:=n div 10;
end;
writeln('Максимальная цифра: ',max);
end.
Другие вопросы из категории
слагаемых сумма которых равна 324
числа, записанные в пятеричной системе счисления, имеют ровно по три значащих разряда. 2. Сумма этих чисел, записанная в пятеричной системе счисления, содержит только цифры «1». Пары чисел, отличающиеся только порядком следования чисел в паре, считаются одинаковыми. В ответе укажите целое число.
1) процессор со сложным набором команд и большим числом методов адресации памяти
2) процессор с внутренней организацией по классической архитектуре фон Неймана
3) классическая Манчестерская ЭВМ
4) процессор типа Pentium и выше
5) компьютер со сложным последовательным интерфейсом (complex interface serial computer)
Читайте также
Программа получает на вход натуральное число , содержащее не более 100 цифр.
Программа должна вывести то же число , с точками между некоторыми цифрами этого числа.
Примеры входных и выходных данных
Ввод 1000 1.000
Вывод 12345678 12.345.678
произведение цифр этого числа.
Необходимо решение на языке Паскаль. Заранее спасибо!
while и repeat
1)напечатать все отрицательные числа из диапазона от а до б, с шагом h.
2)Напишите программу, при выполнении которой с клавиатуры считывается натуральное число N, не превосходящее 10^9, и выводится сумма четных цифр этого числа и 0, если таких цифр в числе нет
2.дано натурально число N вычислить куб суммы этого числа
Нужна программа в паскале