здраствуйте. помогите пожалуйста решить 2 вот такие задачи:
№1 Выдать на экран в возрастающем порядке все трехзначные числа, в десятичной записи которых нет одинаковых цифр.
№2 Убрать из заданной строки все повторные вхождения каждой литеры (символа).
спасибо.
Полная версия: 2 небольших задачи
А поиском нельзя было воспользоваться? Вторая задача уже решена здесь... 
А вот первая:
var i, j, k: char;
begin
for i := '1' to '9' do
for j := '0' to '9' do
for k := '0' to '9' do
if (i <> j) and (j <> k) and (i <> k)
then writeln(i, j, k);
end.
А вот первая:
Код
var i, j, k: char;
begin
for i := '1' to '9' do
for j := '0' to '9' do
for k := '0' to '9' do
if (i <> j) and (j <> k) and (i <> k)
then writeln(i, j, k);
end.
volvo, терпимее, человек не читал правила ;)
виноват он сам.... странно они вроде теперь видны...
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.