Статистика
Всего в нашей базе более 4 327 664 вопросов и 6 445 979 ответов!

Напечатать в возрастающем порядке

10-11 класс

все трёхзначные числа,в десятичной записи кот. нет одинаковых цифр

Arina265 13 апр. 2013 г., 17:57:08 (11 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
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.

Ответить

Другие вопросы из категории

Читайте также



Вы находитесь на странице вопроса "Напечатать в возрастающем порядке", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.