Сложение цифр в числе

[Onekey]

Вопрос конечно самый банальнейший, но все же . скажем у меня есть текстовой фаил такого содержания.

123456
654321
987654

1)как сложить между собой цифры каждого числа.?

2) как перемножить между собой эти числа ( тоесть
a:=(123456*654321);
b:=a*9876554

[mihali4]

F1 -> StrToInt

1)как сложить между собой цифры каждого числа.?

То же самое, но выбирая по одному символу...
А дальше хоть логарифмировать можно.

[Onekey]

а как выбирать по одному символу?

[mihali4]

Пусть строка - это S.
S:='987654';
S[i] - это символ с порядковым номером i, начиная с 1.
S[3]='7'
На сайте нашего клуба полно книг для начинающих.
Ссылка - внизу каждой страницы - "Клуб программистов Delphi".

Переношу к студентам.

[vasek123]

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

а как выбирать по одному символу?

Вот к примеру: http://delphi-manual.ru/les7next.php

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

Пусть строка - это S.
S:='987654';
S[i] - это символ с порядковым номером i, начиная с 1.
S[3]='7'

в принципе, можно и так, если рассматривать строку S как символьный массив.


p.s. Прочитай про работу с текстовыми файлами в Delphi...

[Onekey]

а как можно придать массиву значение 2 строки, 3?

тк у меня же несколько строк

[Stilet]

Показываю:

Var s:TstringList;Sum:integer;i,j:integer;
begin
 s:=TStringList.Create;
 s.LoadFromFile('Файл');
 for i:=0 to s.count-1 do begin
  For j:=1 to length(s[i]) do Sum:=sum+ORD(s[i][j])-ord('0');
  Writeln(sum);
 end;
 s.Free;
end;

Смысл ясен? В Цикле превращаем символ в число, и суммируем его.
И так по всем загруженным строкам.