Напечатать в возрастающем порядке
10-11 класс
|
все трёхзначные числа,в десятичной записи кот. нет одинаковых цифр
Arina265
13 апр. 2013 г., 17:57:08 (11 лет назад)
Oliaoletchka
13 апр. 2013 г., 19:02:32 (11 лет назад)
uses crt;
var i:integer;
begin
for i:=100 to 999 do
if ((i mod 10)<>(i div 100)) and ((i mod 10)<>(i mod 100 div 10)) and
((i div 100)<>(i mod 100 div 10)) then writeln(i);
end.
Ответить
Другие вопросы из категории
Найти количество натуральных двузначных чисел,
каждое из которых не делится ни на 2, ни на 13(паскаль)
Читайте также
Вы находитесь на странице вопроса "Напечатать в возрастающем порядке", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.