• Дано целое число N.Выяснить,сколько раз в этом числе встречается его минимальная цифра. pascal пожалуйста

Ответы 2

  • var s: string;   ch: char;    i: integer;begin  write('строка:  ');   readln(s);  foreach ch in s.Sorted do   if ch = s.Sorted.First then i:=i+1;  writeln('цифра = ',s.Sorted.First,' ',i,' раз(а) ');end.
    • Автор:

      hooper
    • 6 лет назад
    • 0
  • var a,b,c,k,kol:integer;beginwriteln ('введите число');readln(a);kol:=1;c:=10;while (a<>0) do begin  b:=a mod 10;  if (b<c) then c:=b;    if b=k then kol:=kol+1;  a:=a div 10;  k:=c;end;writeln('минимальная цифра ==> ',c);writeln('в этом числе этих цыфр ==> ',kol);end.
    • Автор:

      bennylong
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years