Question

ЗАВДАННЯ 2.у середовищі програмування лазарус розробіть проект суматор у якому після натиснення кнопки старт у вікні введення даних слід ввести трицефрове ціле число. Після цього у вікно повідомлення буде виводитися сума його цифр.

Вам всеровно знаю​

Answer 1

Ответ:

procedure TForm1.Button1Click(Sender: TObject);

begin

 a:= strtoint(edit1.Text);

 a:= ((a mod 10)+((a div 10) mod 10+(a div 100)));

 showmessage('Сумма цифр числа: '+ inttostr(a));

end;

Объяснение:

Создаешь приложение, не забудь написать переменную a в var, добавляешь edit1, label1 и button1. Примерно так как показано на картинке, два раза нажимаешь на кнопку и пишешь код, который сверху. Компилируешь и готово.