Var m,m2,m3: integer;
begin
readln(m);
m2:=round(m-0.45*m);
m3:=m+m2;
writeln('1: ',m,', 2: ',m2,', 3: ',m3,', вместе: ',m+m2+m3);
end.
Пример:
20
1: 20, 2: 11, 3: 31, вместе: 62
32 = 2^5, значит 1 цвет = 5 бит
5*3 = 15 бит
Я МОГУ СКАЗАТЬ ТО ЧТО У НЕГО ЕСТЬ ВООБЩЕТО НЕ 1 ОШИБКА А 2 ОШИБОК))
Uses Crt;
var
n,d1,d10,d100:integer;
begin
ClrScr;
Write('n='); Read(n);
d1:=n mod 10; d100:=n div 100; d10:=(n div 10) mod 10;
if d1=9 then d1:=0 else Inc(d1);
if d10=9 then d10:=0 else Inc(d10);
if d100=9 then d100:=0 else Inc(d100);
Writeln(d100,d10,d1);
ReadKey
end.
Подсчитаем количество чётных чисел. В разряде десятков тысяч этого числа может стоять любое из цифр {2,5,8} (то есть всего 3 варианта). В разряде тысяч, сотен, десятков могут находится любые из цифр {8,5,2,0} (для каждого разряда по 4 варианта). В разряде единиц могут стоять только цифры из множества {0,5,8} (то есть 3 варианта). Применяя известную комбинаторную формулу, считаем, что всего вариантов 3*4*4*4*3=396.
подсчитаем количество возможных нечётных чисел. Ситуация со всему разрядами, кроме единиц аналогично. А вот в разряде единиц может стоять только цифры из множества {5} (один вариант). Таким образом количество возможных нечётных чисел равна 3*4*4*4*1=192.
Ответ: 396 чётных и 192 нечётных