А где рисунки ?ааа без них не как
Var
a, n: longint;
v1, v2, v3: byte;
s: byte;
begin
readln(a);
n := a;
v1 := 0;
v2 := 0;
v3 := 0;
while (n <> 0) do begin
s := n mod 10;
n := n div 10;
if (s = 3) then
v1 := 1;
if (s = 2) then
v2 := 1;
if (s = 5) then
v3 := 1;
end;
if (v1 = 1) then
writeln('В этом числе есть цифра 3')
else
writeln('В этом числе нет цифры 3');
if (v2 = 1) and (v3 = 1) then
writeln('В этом числе есть цифры 2 и 5')
else
writeln('В этом числе нет одновременно цифр 2 и 5');
end.
1 уравнение:
15 (8)=13 (10)
100+13=х, х=113 (10)=1110001 (2)
2 уравнение
417 (8)=271 (10)
СА (16)=202 (10)
271+202=473(10)=731(8)
3 уравнение:
753(8)=491 (10)
411 (8)=289 (10)
491-289=202(10)=312 (2)
Обратим внимание, что в вопросе указана цифра два, являющаяся последней из цифр, которые используются в троичной системе счисления (0,1,2). Следующей за ней по порядку снова будет ноль, т.е. следующее число окажется кратным трем - основанию троичной системы. Но эта кратность трем также сохранится в любой системе счисления с основанием, превышающим три. Поэтому в десятичной системе счисления искомые числа будут последовательностью, в которой каждое число равно кратному трем за вычетом единицы:
Это общее выражение порождает ряд 2, 5, 8, .. 47, 50 при k=1,2,3,..16,17
1 - в
2 - а
3 - б вроде как ячейка содержит 1 байт = 8 бит
4 - вообще-то все они энергозависимы для чтенья и записи. Не понятно что имеется ввиду
5 - в