Спасибо за помощь! - вопользовался всем кроме -
procedure TForm1.Button1Click(Sender: TObject);
var
x, y, i: Integer;
begin
x:= 248;
y:= 0;
for i:= 1 to 3 do
begin
y:= y + (x Mod 10);
x:= x div 10;
end;
ShowMessage(IntToStr(y));
end;
т.к. абсолютно не понял принципа работы...)) - но знаний наверное не хватает (а можно коментарий - почему 0, почему 248, что выполняется??? )
|