Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В

@Анютка98 · Регистрация: 30.09.2015

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

Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В. А и
В задаются.

@Cyborg Drone · 30.01.2016, 13:58

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var a, b: integer;
begin
  label1.Caption := '0';
  a := StrToInt(Edit1.Text);
  b := StrToInt(Edit2.Text);
  if (a in [1..18]) and (b in [0..9]) and (a - b > 0)
    then begin
      a := a - b;
      Label1.Caption := IntToStr(a - a div 10 * (a mod 10 * 2 + 1))
    end
end;

@Анютка98 -17 / 2 / 0 Регистрация: 30.09.2015 Сообщений: 422
		1
	Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В 26.01.2016, 13:19. Показов 1504. Ответов 1 Метки нет (Все метки) Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В. А и В задаются. 0

	30.01.2016, 13:58

Найти количество трехзначных чисел, сумма цифр которых равна А, а само число заканчивается цифрой В

Решение