Помогите найти молодому математику все трехзначные числа, в десятичной записи которых
Помогите найти юному арифметику все трехзначные числа, в десятичной записи которых нет схожих цифр и вывести эти числа в возрастающем порядке. Составьте блок-схему метода либо опишите алгоритм на российском языке, либо составьте программку на языке программирования
Задать свой вопрос1 ответ
Александра Кубик
Программка на языке Паскаль:
var
n, a, b, c, t: integer;
begin
for n := 100 to 999 do
begin
a := n div 100;
b := (n div 10) mod 10;
c := n mod 10;
if (a lt;gt; b) and (b lt;gt; c) and (c lt;gt; a) then Writeln(n);
end;
end.
Андрей Мамыгин
В описании переменных осталась одна излишняя (t). Хотел её использовать для временных значений, но не пригодилась. Лучше её убрать оттуда, а то я пренебрегал.
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Вычислите силу с которой при давлении 100 КПа атмосфера давит на
Физика.
Синтаксический разбор и схема Но мы сказали, что нам ничего не
Русский язык.
Массовая доля целлюлозы в древесине составляет 50%. Какая масса спирта может
Химия.
помоги мне пожалуста прш
869*(61124-488*125)-50974
Математика.
по шкале высот определить ,в каком направлении происходит понижение релефа уральских гор
География.
Помогите пожалуйста написать Сочинение Овчинникова "победитель'
Литература.
Здравствуйте. Нужен цитатный план испытания лётчика в лесу главы2-13 по повести
Разные вопросы.
Облако тегов