Определить номер минимальной цифры числа

@Denny1 · Регистрация: 28.09.2019

Author24 — интернет-сервис помощи студентам

Вводится натуральное число N. Определить номер минимальной цыфры этого числа,а также найти сумму.
©Даже Христу нужна была помощь, чтобы нести свой крест.

@mr-Crocodile · 28.10.2019, 14:56

Pascal

repeat 
  ReadLn(N);
until N>0;
sum=0;
min=10; {минимальная цифра не может быть больше 9}
while N>0 do begin
   if ( N mod 10 ) < min then min := N mod 10;
   sum := sum + (N mod 10);
   N := N div 10
end;
WriteLn('summa = ', sum);
WriteLn('min = ', min);

@bormant · 28.10.2019, 18:40

Сообщение от mr-Crocodile

Pascal

4 5	sum:=0; min:=10; {минимальная цифра не может быть больше 9}

Тем не менее, искать требовалось номер минимальной цифры, а не ее саму.

@mr-Crocodile · 29.10.2019, 09:37

Сообщение от bormant

Тем не менее, искать требовалось номер минимальной цифры, а не ее саму.

истинно так, мой косяк.

тогда:

Pascal

var N : LongInt;
  k, min, pmin, sum : integer;
begin
  Write('Enter natural N:');
  repeat 
     ReadLn(N);
     if N<1 then WriteLn('Error! Try more...')
  until N>0;
  sum := 0;
  min := 10; {минимальная цифра не может быть больше 9}
  k:=0;
  repeat
   inc(k);
   if ( N mod 10 ) <= min then 
       begin pmin := k;  min := N mod 10; end;
   sum := sum + (N mod 10);
   N := N div 10
  until N=0;
  WriteLn('summa = ', sum);
  WriteLn('min = ', min,' index = ',k-pmin+1);
  Readln
end.

@Denny1 · 16.11.2019, 10:29 **[ТС]**

Можете ещё блок схему изобразить пожалуйста

@Puporev · 16.11.2019, 10:37

Блок-схема

@Denny1 0 / 0 / 0 Регистрация: 28.09.2019 Сообщений: 46
		1
	Определить номер минимальной цифры числа 28.10.2019, 14:38. Показов 1782. Ответов 5 Метки нет (Все метки) Вводится натуральное число N. Определить номер минимальной цыфры этого числа,а также найти сумму. ©Даже Христу нужна была помощь, чтобы нести свой крест. 0

@Denny1 0 / 0 / 0 Регистрация: 28.09.2019 Сообщений: 46
	16.11.2019, 10:29 [ТС]	5
	Можете ещё блок схему изобразить пожалуйста 0

@Puporev Почетный модератор 64304 / 47599 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	16.11.2019, 10:37	6
	Блок-схема Миниатюры 0