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

@Atex · Регистрация: 25.06.2011

Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр. Операции деления, целочисленного деления и определения остатка не использовать.

@El41 · 16.05.2012, 19:16

Pascal

var
i,c:integer;
s:string;
begin
for i:=100 to 999 do begin
str(i,s);
if (s[1]=s[2]) or (s[1]=s[3]) or (s[2]=s[3]) then c:=c+1
else writeln(i);
end;
writeln('kol-vo elementov ne ydoBji= ',c);
readln(s);
end.

@Atex 0 / 0 / 0 Регистрация: 25.06.2011 Сообщений: 43
		1
	Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр 16.05.2012, 18:04. Просмотров 2947. Ответов 1 Метки нет (Все метки) Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр. Операции деления, целочисленного деления и определения остатка не использовать. 0

Опции темы

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

Решение