Найти все натуральные четырехзначные числа, цифры в которых образуют возрастающую последовательность

@kukusik · Регистрация: 27.09.2010

решить литерными

найти все натуральные четырехзначные числа,цифры в которых образуют возрастающую последовательность.

@Шутка · 15.10.2010, 18:13

Pascal

var
j,i:integer;
s:string;
begin
for i:=1000 to 9999 do begin
str(i,s);
 for j:=1 to length(s) do begin
  if (s[1]<s[2]) and (s[2]<s[3]) and (s[3]<s[4]) then writeln(s);
 end;
end;
end.

@kukusik · 15.10.2010, 18:16 **[ТС]**

спасибо

@kukusik 4 / 4 / 0 Регистрация: 27.09.2010 Сообщений: 52
		1
	Найти все натуральные четырехзначные числа, цифры в которых образуют возрастающую последовательность 15.10.2010, 17:48. Показов 1879. Ответов 2 Метки нет (Все метки) решить литерными найти все натуральные четырехзначные числа,цифры в которых образуют возрастающую последовательность. 0

@kukusik 4 / 4 / 0 Регистрация: 27.09.2010 Сообщений: 52
	15.10.2010, 18:16 [ТС]	3
	спасибо 0

Опции темы

Найти все натуральные четырехзначные числа, цифры в которых образуют возрастающую последовательность

Решение