Алгоритм
<span>1. Взять чайник.
</span><span>2.налить в него холодной воды.Если там есть вода вылить её.
</span><span>3.поставить на плиту.
</span><span>4.включить плиту.
</span><span>5.снять чайник с огня, когда вода закипит.
</span><span>6.Взять кружку для чая.
</span><span>7. положить в кружку заварки.
</span>8. налить кяпяток из чайника.
<span>9. когда чай заварится, вытащить пакетик.</span>
Var r,L,S:real;
begin
read (r);
L:=2*3.14*r;
S:=4*3.14*r*r;
write('длина...=',L);
write('площадь...=',S);
End.
1. В приведенном коде ошибка. Не хватает ";" в третьей строке снизу.
2. Немного изменим ваш код и получим искомое значение x
Искомое число х = 16293
var
x, y, a, b, k: integer;
begin
k:=10000;
repeat
x:=k;
a := 0; b := 0; y := 1;
while x > 0 do
begin
if (x mod 10) mod 2 = 0
then
a := a * 10 + x mod 10
else begin
y := y * 10;
b := b * 10 + x mod 10
end;
x := x div 10
end;
a := a * y + b;
k := k + 1;
until a = 26391;
writeln(a:8, k-1:8);
end.
Двоичный алфавит<span> состоит из </span>2<span>-х </span>символов<span>: 0 и 1 </span>
Пока это не очень серьёзно,но надо быть на стороже,т.к у меня тоже асус и был похожий случай,я не следила,перенагружала зарядку и теперь батарея держит лишь 5 мин!