Дано натуральное число n

[Jaguar83]

Точно не знаю, но предполагаю, что определяющая цифра - это первая отличная от нуля.
Я вывел индекс(номер) этой цифры в числе.

[zzz6]

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

Точно не знаю, но предполагаю, что определяющая цифра - это первая отличная от нуля.
Я вывел индекс(номер) этой цифры в числе.

спросил у учителя... надо сделать так как он сказал... 435455 чтоб выводило 4

ну всё равно спасибо за помощь.. почти вся задача решена!

[Jaguar83]

Writeln('Opredelyaushaya cifra ',str[1]);

[Alex11223]

Да нету никакой определяющей цифры

перечитайте задание. Программа, определяющая (программа определяет) первую цифру числа. Так что цифра не определяющая, а просто первая)

[zzz6]

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

Writeln('Opredelyaushaya cifra ',str[1]);

вот работает... еще раз ОГРОМНОЕ СПАСИБО......
там оставил отзыв

[Serge_Bliznykov]

решение через перевод в строку не совсем "честное" ...

думаю, что так получше будет. Разбирайтесь:

{
Дано натуральное число n. Составить программу, подсчитывающую количество
цифр числа n, сумму его цифр и определяющую его первую цифру.
}

var
  N: LongInt;
  CountN, SumN, OneDigit: integer;
begin
  WriteLn('Введите натурально число N:');
  Readln(N);

  if N < 0 then begin
    WriteLn('натуральное - это положительное! А Вы ввели отрицательное! Прощайте...');
    readln;
    Halt(1);
  end;
  CountN := 0;
  SumN := 0;

     { суммуруем число N по цифрам (в обратном порядке) }
  repeat
    OneDigit := N mod 10;
    N := N div 10;
    SumN := SumN + OneDigit;
    inc(CountN);
  until N = 0;

  {вывод результатов}
  WriteLn('в числе ', CountN, ' цифр. Сумма цифр = ', SumN, ' Первая цифра ', OneDigit);

  readln;

end.

[zzz6]

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

решение через перевод в строку не совсем "честное" ...

думаю, что так получше будет. Разбирайтесь:

{
Дано натуральное число n. Составить программу, подсчитывающую количество
цифр числа n, сумму его цифр и определяющую его первую цифру.
}

var
  N: LongInt;
  CountN, SumN, OneDigit: integer;
begin
  WriteLn('Введите натурально число N:');
  Readln(N);

  if N < 0 then begin
    WriteLn('натуральное - это положительное! А Вы ввели отрицательное! Прощайте...');
    readln;
    Halt(1);
  end;
  CountN := 0;
  SumN := 0;

     { суммуруем число N по цифрам (в обратном порядке) }
  repeat
    OneDigit := N mod 10;
    N := N div 10;
    SumN := SumN + OneDigit;
    inc(CountN);
  until N = 0;

  {вывод результатов}
  WriteLn('в числе ', CountN, ' цифр. Сумма цифр = ', SumN, ' Первая цифра ', OneDigit);

  readln;

end.

Вот и тебе спасибо....

[Mandrivnyk]

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

решение через перевод в строку не совсем "честное" ...

Это еще почему?! о_О

[Serge_Bliznykov]

Это еще почему?! о_О

потому что может не понравиться многим преподавателям,
т.к. работа в цикле с различными разрядами числа подменяется работой с массивом символов (напомню, что string - это array of char)
это же в первую очередь учебная задача.
это раз.

Второе. приведённое решение не будет работать в Pascal (правда, в Pascal ABC, будет...). Согласен, в данном случае это небольшая проблема - т.к. несложно написать аналогичный код и на обычном паскаль (фунции str val ord никто не отменял).

в реальной практике можно смело использовать любой удобный способ.
А вот для учебных задач, имхо, подобный подход не очень корректен.

впрочем, я же ничего категорически не утверждаю. Устраивает TC и его преподавателя - можно использовать любой способ. Хоть с вызовом скрипта на VBA - лишь бы работало и ответ правильный давало!