Сумма цифр

@Murzik97 · Регистрация: 10.10.2015

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

Надо чтобы выводило в один Lebel3. Как бы все правильно, но есть недочеты.

Delphi

var
 
  a,j: integer;
  b, c, d, str: string;
 
begin
d:=Edit1.Text;
 a:=strtoint(d[1]) + strtoint(d[2]);
 b:=inttostr(strtoint(str[Length(str)])+strtoint(str[Length(str)-1]));
 c:=inttostr(strtoint(str[1])+strtoint(str[Length(str)]));
Label3.Caption := ('суммы первых двух цифр = '+format('%n', [a])+#10+
                  'суммы последних двух цифр = '+format('%n', [b])+#10+
                  'суммы первой и последней цифры = '+format('%n', [c]));

@droider · 06.12.2015, 18:42

Не по теме:

Murzik97, суммирование цифр перебором символов, представив число в виде строки - это, конечно же, проще. А как насчет div/mod? :)

@droider
	06.12.2015, 18:42 Сумма цифр #21
	Не по теме: Murzik97, суммирование цифр перебором символов, представив число в виде строки - это, конечно же, проще. А как насчет div/mod? :) 0