Найти все трёхзначные натуральные числа, сумма цифр которых больше заданного числа N

@EGORCHIK228 · Регистрация: 08.12.2019

ВЫВЕСТИ ВСЕ НАТУРАЛЬНЫЕ ТРЕХЗНАЧНЫЕ ЧИСЛА Ы КОТОРЫХ СУММА БОЛЬШЕ N Циклы
Пожалуйста полностью программу,а не фрагмент и через циклы обязательно

@ZX Spectrum-128 · 08.12.2019, 21:21

@JuriiMW · 09.12.2019, 04:17

Pascal

begin
  var n:=ReadInteger;
  var p:=100.to(999).Where(x->x mod 10+x div 10 mod 10+x div 100=n).Print;
end.

@EGORCHIK228 0 / 0 / 0 Регистрация: 08.12.2019 Сообщений: 2
		1
	Найти все трёхзначные натуральные числа, сумма цифр которых больше заданного числа N 08.12.2019, 18:40. Показов 1131. Ответов 2 Метки нет (Все метки) ВЫВЕСТИ ВСЕ НАТУРАЛЬНЫЕ ТРЕХЗНАЧНЫЕ ЧИСЛА Ы КОТОРЫХ СУММА БОЛЬШЕ N Циклы Пожалуйста полностью программу,а не фрагмент и через циклы обязательно 0

@ZX Spectrum-128 6811 / 4568 / 4819 Регистрация: 05.06.2014 Сообщений: 22,438
	08.12.2019, 21:21	2
	Найти все трёхзначные натуральные числа, сумма цифр которых равна заданному числу N 0

	09.12.2019, 04:17

Опции темы