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

[zzz6]

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

[Alex11223]

Язык какой? Проблема в чем, что не получается?
Сделаю за небольшое вознаграждение вебмани или ЯД, контакты в подписи.

[Jakethefish]

1. Перевести число в строку.
2. Получаем длину.
3. Проходимся по строке и считаем сумму цифр, переводя символы обратно в числа.
Что за определяющая я не понял.

[zzz6]

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

1. Перевести число в строку.
2. Получаем длину.
3. Проходимся по строке и считаем сумму цифр, переводя символы обратно в числа.
Что за определяющая я не понял.

я вот тоже не понял

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

Язык какой? Проблема в чем, что не получается?
Сделаю за небольшое вознаграждение вебмани или ЯД, контакты в подписи.

Откуда у студентов ДЕНЬГИ?

Паскаль это АБС

[Alex11223]

"Программа, определяющая первую цифру" имеется в виду.

Откуда у студентов ДЕНЬГИ?

Ну так тогда надо хоть что-то пытаться сделать самому, а не тупо копипастить все задание на форумы в надежде что кто-то напишет за вас нахаляву. Либо платить за решение.

[zzz6]

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

"Программа, определяющая первую цифру" имеется в виду.

Ну так тогда надо хоть что-то пытаться сделать самому, а не тупо копипастить все задание на форумы в надежде что кто-то напишет за вас нахаляву. Либо платить за решение.

этим же и занимаюсь. пытаюсь разобратся...и не просто копирую задания

[Alex11223]

Значит плохо пытаетесь, раз нету никаких вопросов, кроме самого задания) Вот решение похожей задачи http://programmersforum.ru/showthrea...707#post832707 (сообщение #3 и #4, inttostr в АБС вроде нет).

[Jaguar83]

Примерно так (проверено на Делфи)

var
  i, n, summa: Integer;
  str: String;

begin
Write('Enter number n = ');
Readln(n);
str:=IntToStr(n);
Writeln('Kol-vo cifr chisla n = ',Length(str));
summa:=0;
for i:=1 to Length(str) do
begin
  summa:=summa + StrToInt(str[i]);
end;
Writeln('Summa cifr = ',summa);
for i:=1 to Length(str) do
begin
  if (StrToInt(str[i]) <> 0) then
  begin
    Writeln('Opredelyaushaya cifra ',i);
    Break;
  end
end;
Readln;
end.

[zzz6]

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

Примерно так (проверено на Делфи)

var
  i, n, summa: Integer;
  str: String;

begin
Write('Enter number n = ');
Readln(n);
str:=IntToStr(n);
Writeln('Kol-vo cifr chisla n = ',Length(str));
summa:=0;
for i:=1 to Length(str) do
begin
  summa:=summa + StrToInt(str[i]);
end;
Writeln('Summa cifr = ',summa);
for i:=1 to Length(str) do
begin
  if (StrToInt(str[i]) <> 0) then
  begin
    Writeln('Opredelyaushaya cifra ',i);
    Break;
  end
end;
Readln;
end.

вот спасибо...
определяющую первую цифру... это типо вводим 43242 ..и вывести должно 4..
бред

[Alex11223]

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