Тема : циклы

@kazzz · Регистрация: 17.11.2010

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

Помогите доделать лабораторную. Все наработки в архиве. Не работает (да и не должна при таком то коде) вторая часть(13 задание). Заранее благодарен!!!

@igoriy · 09.05.2011, 20:00

Вот так не плохо работает

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
 n,m,i : integer;
 c, b: string;
begin
 b:= Edit1.Text; // число N
 m:= StrToInt(Edit2.Text); // число M
 c:= Copy(b,Length(b)-m+1,Length(b));
 for I := 0 to Length(c) do
   begin
     if c[i] in [#0] then continue
     else   n:= n+ StrToInt(c[i]);
 
   end;
 Label1.Caption:= Inttostr(n);*// сумма
end;

@kazzz · 09.05.2011, 20:18 **[ТС]**

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

Вот так не плохо работает

Все гениальное просто! Премного благодарен!!

@kazzz 7 / 7 / 0 Регистрация: 17.11.2010 Сообщений: 59
	09.05.2011, 20:18 [ТС]	3
	Сообщение от igoriy Вот так не плохо работает Все гениальное просто! Премного благодарен!! 0

Опции темы

Тема : циклы

Решение