Предмет: Информатика,
автор: JigulMc47
программа на delphi
Разработать програму суммы N чисел пока сумма не превысит значение M.
Ответы
Автор ответа:
0
Не совсем понял смысл, но вот:
procedure TForm1.Button1Click(Sender: TObject);
var
i, s: integer;
begin
for i := 0 to (StrToInt(Edit1.Text) - 1) do
begin
if (s > StrToInt(Edit2.Text)) then break;
s := s + StrToInt(Memo1.Lines[i]);
end;
Memo2.Text := IntToStr(s);
end;
Эта штука суммирует числа из Memo1 (числа в строках), пока количество суммируемых не превысит N, либо их сумма не превысит M, либо числа не кончатся
procedure TForm1.Button1Click(Sender: TObject);
var
i, s: integer;
begin
for i := 0 to (StrToInt(Edit1.Text) - 1) do
begin
if (s > StrToInt(Edit2.Text)) then break;
s := s + StrToInt(Memo1.Lines[i]);
end;
Memo2.Text := IntToStr(s);
end;
Эта штука суммирует числа из Memo1 (числа в строках), пока количество суммируемых не превысит N, либо их сумма не превысит M, либо числа не кончатся
Приложения:

Похожие вопросы
Предмет: Математика,
автор: elifaraci2010
Предмет: География,
автор: Iulicka88
Предмет: Математика,
автор: rita198598
Предмет: Информатика,
автор: andreo2014
Предмет: Алгебра,
автор: ДианкаДисней