сервис вопросов и ответовдано натуральное число N.Составте программу, котора определяет, сколько раз в числе N содержится наибольшая цифра этого числа.
10-11 класс|
|
Boris194
19 дек. 2014 г., 15:51:24 (9 лет назад)
Pop6789
19 дек. 2014 г., 17:37:33 (9 лет назад)
var
max, c,t, count:integer;
begin
write('c = ');
readln(c);
t := c;
max := t mod 10;
while t <> 0 do
begin
if max < t mod 10 then
max := t mod 10;
t := t div 10;
end;
t := c;
count := 0;
while t <> 0 do
begin
if t mod 10 = max then
count := count + 1;
t := t div 10;
end;
writeln('Count = ', count);
readln
end.
Ответить
Другие вопросы из категории
составить программу вычисляющую значение выражения
y=(a+d+c⁵)/√(x³-4)
Построить блок-схему и написать программу
1. Вычислить S=1+2+3+4+…+N
Выберите из предложенного списка профессии, которые в наибольшей степени связаны с информационной сферой деятельности человека: бухгалтер, повар,
водитель, программист, учитель, портной, продавец, журналист, актер.
Читайте также
Дано натуральное чсло N.Составте программу, которая определяет, является ли последовательность цифр этого числа ( при просмотре их справа налево)
упорядоченной по возрастанию.
Разделите точками цифры этого числа группами по три , начиная справа.
Программа получает на вход натуральное число , содержащее не более 100 цифр.
Программа должна вывести то же число , с точками между некоторыми цифрами этого числа.
Примеры входных и выходных данных
Ввод 1000 1.000
Вывод 12345678 12.345.678
Срочно! Дано трехзначное число. Если сумма цифр этого числа превышает 15, то вывести эту сумму. Иначе вывести
произведение цифр этого числа.
Необходимо решение на языке Паскаль. Заранее спасибо!
Вы находитесь на странице вопроса "дано натуральное число N.Составте программу, котора определяет, сколько раз в числе N содержится наибольшая цифра этого числа.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.