Для трёхзначных чисел до n (n вводится с клавиатуры) вывести на экран только те , у которых все цифры в представлении различны.

var   i,n,a,b,c     : integer;

begin

read(n);

i: =99;

for i: =100 to n do

begin

a: =i mod 10;

b: =i div 10 mod 10;

c: =i div 100;

if (a< > b) and (a< > c) and (b< > c) then write(i,' ');

end;

end.

 

 

 

 

проверь(для паскаля)

1,2,4: / pascalabc.net 3.0, сборка 1066 var   n: biginteger; begin   var s: =readlnstring('введите натуральное число: ');   if biginteger.tryparse(s,n) then begin       var c: =readchar('введите проверяемую цифру: ');       writeln(c, ' встречается в ',s,' ',s.where(x-> x=c).count,' раз');       writeln('максимальная цифра числа: ',s.where(x-> x=s.max).distinct);       writeln('перевертыш: ',s.inverse);       end   else writeln('ошибка при вводе числа') end. тестовое решение: введите натуральное число:   355678679650768680078676985643546809678546263435 введите проверяемую цифру:   4 4 встречается в 355678679650768680078676985643546809678546263435 4 раз максимальная цифра числа: [9] перевертыш: 534362645876908645346589676870086867056976876553 3 // pascalabc.net 3.0, сборка 1066 begin   var m: int64: =-1;   var n: int64: =0;   writeln('принимаются неотрицательные целые числа');   while (n> =0) and (m< n) do begin       m: =n;       n: =readinteger('введите число: ')   end;   if m> =n then writeln('последовательность невозрастающая')   else writeln('последовательность возрастающая') end. тестовое решение: принимаются неотрицательные целые числа введите число:   4 введите число:   6 введите число:   12 введите число:   83 введите число:   170 введите число:   214 введите число:   170 последовательность невозрастающая

Проще всего перевести числа в 10-ную систему, умножить и перевести обратно в 16-ную. 4a,3 = 4*16 + 10 + 3/16 = 74,1875 f,6 = 15 + 6/16 = 15,375 74,1875 * 15,375 = 1140,6328125 = 256*4 + 16*7 + 4 + 0,6328125 = = 4*256 + 7*16 + 4 + 10/16 + 2/256 = 474,a2 а если нужно обязательно в 16-ричной, то поищи "шестнадцитиричная таблица умножения". именно так, словами, а не "16-ричная"! из нее можно узнать, что: 4*f = 3c; a*f = 96; 3*f = 2d; 4*6 = 18; a*6 = 3c; 3*6 = 12. умножаем в столбик:   4a,3       f,6 =====   1bd2 458d ===== 474,a2 надеюсь, понятно, как я складывал числа? например, d + d(16) = 13 + 13(10) = 26(10) = 16 + 10(10) = 1a(16) и остальные числа точно также, переводя в уме в 10-ную и складывая.