С помощью компьютера можно сделать любой дизайн
===== PascalABC.NET =====
begin
var n: int64;
Print('Введите натуральное число:');
Read(n);
var a := ArrFill(10, False);
while n > 0 do
begin
a[n mod 10] := True;
n := n div 10
end;
Print('В числе отсутствуют цифры');
for var i := 0 to 9 do
if not a[i] then
Print(i);
end.
Ответ: 648.
Нот код решения этой задачи на паскале!
Uses CRT;var a,b,c,d, i, n : integer;beginclrscr;n:=0; for i:= 100 to 1000 do begin a:= i div 100; b:= i div 10; b:= b mod 10; c:= i mod 10; if (a = b) or (b = c) or (a = c) then else begin n:= n + 1; end; end; writeln (n);end.
===== PascalABC.NET =====
begin
var a := ArrRandom(12, -15, 15);
a.Println.Count(p -> p mod 5 = 0).Print
end.