Вводить целые числа до тех пор, пока не будет введено число 3

@Solomon_0 · Регистрация: 26.04.2018

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

Разработать программное обеспечение в котором необходимо ввести целые числа и добавлять их один к другому, до тех пор пока не будет введено число 3

@Puporev · 08.05.2018, 20:00

Например так.

Delphi

var
  Form1: TForm1;
  s:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
s:=s+Spinedit1.Value;
Label1.Caption:=inttostr(s);
if Spinedit1.Value=3 then
 begin
  Button1.Enabled:=false;
  ShowMessage('Введено число 3, дальнейший ввод невозможен')
 end;
end;

@Solomon_0 0 / 0 / 0 Регистрация: 26.04.2018 Сообщений: 15
		1
	Вводить целые числа до тех пор, пока не будет введено число 3 08.05.2018, 19:47. Показов 2140. Ответов 1 Метки нет (Все метки) Разработать программное обеспечение в котором необходимо ввести целые числа и добавлять их один к другому, до тех пор пока не будет введено число 3 0

	08.05.2018, 20:00

Вводить целые числа до тех пор, пока не будет введено число 3

Решение