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

@2323 · Регистрация: 24.02.2014

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

Kodzaev · 13.04.2014, 23:56

Pascal

var
  i, x: integer;
 
begin
  Write('X = '); ReadLn(x);
  for i := 10 to 99 do
    if i div 10 + i mod 10 > x then
      Write(i, ' ');
end.

@2323 0 / 0 / 0 Регистрация: 24.02.2014 Сообщений: 29
		1
	Найти двухзначные числа, суммы цифр которых больше заданного числа Х 13.04.2014, 23:43. Показов 1491. Ответов 1 Метки нет (Все метки) 2. Найти двухзначные числа, суммы цифр которых больше заданного числа Х 0

	13.04.2014, 23:56

Опции темы

Решение