11100
решение просто на глаз:
1 это - 1
10 это 2
100 это 4
1000 это 8
10000 это 16
так как 4+8+16 = 28
то мы и берем только
100 + 1000 + 10000 = 11100
по другому делаеться так:
28 делим на 2, получаем 14, остаток от деления 0
14 делим на 2, получаем 7, остаток 0
7 делим на 2, берем целую часть 3, остаток 1 (т.е вот так: 3*2+1=7)
3 делим на 2, берем целую часть 1, остаток 1 (т.е вот так: 1*2+1=3)
1 делим на 1, целая часть 0 остаток 1
Теперь берем остатки, и записываем адом наперед 11100
Var
x, y, z: integer;
begin
read(x, y, z);
if (x = y) and (y = z) and (x = z) then
begin
x := 3 * x;
y := 3 * y;
z := 3 * z;
write(x, y, z);
end
else
if (y = z) then
begin
x := -x;
y := -y;
z := -z;
write(x, y, z);
end
else
begin
x := 222;
y := 222;
z := 222;
write(x, y, z);
end;
end.
Var s:string;
begin
s:='тестирование';
s:=s[8]+s[9]+s[1]+s[9];
writeln(s);
<span>end.</span>
1.4
2.2
3.2
4.2
5.1
6.2
7.4
8.3
9.2
10.2
11.3
12.4
13.2
14.1
15.1
16.2
17.3
18.1
19.4
20.3
Ответ №2
Изменять форму объекта может анимация формы