Регистрация
фриск12345
Есть ответ 👍

Дано натуральное число N. Определить количество цифр в цифровой записи данного числа, которые имеют наибольшее значение. Пример: N = 1808

154
167
Посмотреть ответы 2

Ответы на вопрос:

viktorrudnik53
viktorrudnik53
4,8(55 оценок)
uses crt;
var n:longint;
    c,k,mx:byte;
begin
clrscr;
write('Введите натуральное число n=');
readln(n);
mx:=0;
k:=1;
while n>0 do
 begin
  c:=n mod 10;
  if c>mx then
   begin
    mx:=c;
    k:=1;
   end
  else if c=mx then k:=k+1;
  n:=n div 10;
 end;
write('Максимальная цифра ',mx,' количесиво=',k);
readln
end.
papulova03
papulova03
4,4(76 оценок)
Работа в парах. Как ваши одноклассники будут праздновать День дружбы?
— Will you celebrate Friendship Day?
— Yes, I will.
— Who will you give a gift to?
— I’ll give gifts to my friends.
— What will you give them?
— I’ll make a huge tasty cake for my friends.
— Will you have a party?
— Yes, I will.
— What will you do at the party?
— We’ll play different games. We will talk and laugh together.

Популярно: Другие предметы