Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Найти сумму цифр числа находящихся

Автор: nitrak 25.12.2006, 20:39

Дано натуральное число.Найти сумму цифр числа находящихся на четных позициях
(старшая цифра находится на первой позиции)..

Автор: VaiMR 25.12.2006, 22:07

Если вот так:
со строками:

Код


procedure TForm1.Button1Click(Sender: TObject);
var i,summ:longint;
    ints:string;
begin
 summ:=0;
 ints:=edit1.Text;
 for i:=1 to length(ints) do
   if (i mod 2=0)
    then
     summ:=summ+strtoint(ints[i]);
label1.Caption:=inttostr(summ);
end;