LiziLizi
Опубликовано 7 лет назад по предмету Информатика от LiziLizi


Дано натуральное число. Найти минимальную цифру.

  1. Ответ
    Ответ дан sinerDt

    program dddd;uses crt;var a,b,c,i:integer;beginclrscr;c:=10;readln(a);while a <> 0 dobeginb:= a mod 10;if b < c then c:=b;a:= a div 10;end;writeln(c);readkey;end.

  2. Ответ
    Ответ дан ali07

     

    program xxx;  var a, b, min :integer;begin  write('введите число а='); 

      readln(a);

      min:=10;  while a <> 0 do    begin       b:= a mod 10;       if b < min then min:=b;       a:= a div 10    end;  writeln('минимальная цифра = ', min);  readlnend.

Не тот ответ, который вам нужен?
Найди нужный
Самые новые вопросы
99335871
Другие предметы - 1 год назад

В какой оболочке земли живёт большинство живых организмов?

99335871
Другие предметы - 1 год назад

Из каких неживых частей состоит экосистема

mandrykin
Другие предметы - 1 год назад

На какие расы делятся население земли

kinda2007
Другие предметы - 1 год назад

Определение статуса военнослужащего (краткий ответ!!)

Санёк1999
Другие предметы - 1 год назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Информация

Посетители, находящиеся в группе Гости, не могут оставлять комментарии к данной публикации.

Задай вопрос

Лучшие за месяц


Интересные статьи:


Пошаговый план подготовки к ЕГЭ за полгода для школьников
Не сдал ЕГЭ пересдача апелляция альтернативные пути
10 ошибок на ЕГЭ по русскому и способы их избежать
Выбор предметов ЕГЭ для поступления
Секреты подготовки к экзаменам дома от отличников