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

@SaLoMoN · Регистрация: 17.11.2011

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

@ermolay · 28.05.2012, 18:01

3.

Pascal

var
  i,j: integer;
  st: string;
begin
  for i:=100 to 999 do
  begin
    str(i,st);
    if (st[1]<>st[2])and(st[2]<>st[3])and(st[1]<>st[3]) then
    writeln(st);
  end;
  readln;
end.

@CodeR · 28.05.2012, 21:24

Сообщение от SaLoMoN

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

Pascal

Var s:string;
    i:integer;
Begin
    writeln('Числа у которых все цифры различны:');
    For i:=100 to 999 do
     Begin
      Str(i,s);
      if (s[1]<>s[2])and(s[1]<>s[3])and(s[2]<>s[3]) then write(s:5);
     End;
End.

@SaLoMoN 0 / 0 / 0 Регистрация: 17.11.2011 Сообщений: 91
		1
	Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр 28.05.2012, 17:33. Просмотров 8871. Ответов 2 Метки нет (Все метки) 3)Напечатать в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр.Операции деления, целочисленного деления и определения остатка не использовать. 0

Опции темы

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

Решение