Помогите найти юному математику все трехзначные числа, в десятичной записи которых нет одинаковых цифр и вывести эти числа в возрастающем порядке. Составьте блок-схему алгоритма или опишите алгоритм на русском языке, или составьте программу на языке программирования

Question

Информатика

Финелла

3 июля, 02:15

Помогите найти юному математику все трехзначные числа, в десятичной записи которых нет одинаковых цифр и вывести эти числа в возрастающем порядке. Составьте блок-схему алгоритма или опишите алгоритм на русском языке, или составьте программу на языке программирования

+4

Ответы (1)

Знаете ответ?

Чинар · Answer 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 b) and (b c) and (c a) then Writeln (n) ;

end;

end.