1) Можно попробовать разгонять процессор.
2) Оптимизировать программами.
3) Очистка автозагрузки
4) 4 Способ на крайний случай это дефрагментация диска. Это тоже поможет.
Var
n,i:integer;
s:string;
begin
Write('Введите натуральное число: '); Read(n);
Str(n,s);
for i:=2 to Length(s) do
if s[i]=s[i-1] then begin
Writeln('Пара одинаковых цифр-соседей ',s[i]);
Exit
end;
Writeln('В числе нет цифр, имеющих таких же соседей')
end.
Пример
Введите натуральное число: 375422453
Пара одинаковых цифр-соседей 2
2. uses GraphABC;
begin
Pie(100, 50, 70, 270, 360);
<span>end.
3. </span>uses GraphABC;
begin
Draw(x -> 2 * cos(x), -pi, pi);
<span>end.
4. </span>uses GraphABC;<span>
begin
Draw(x -> cos(x), -10, 10);
Draw(x -> sin(x), -8, 8);
<span>end.
</span>5. </span>uses GraphABC;
begin
Brush.Color := clRandom;
Pie(200, 200, 100, 0, 170);
Brush.Color := clRandom;
Pie(200, 200, 100, 170, 270);
Brush.Color := clRandom;
Pie(200, 200, 100, 270, 300);
Brush.Color := clRandom;
Pie(200, 200, 100, 300, 330);
Brush.Color := clRandom;
Pie(200, 200, 100, 320, 333);
Brush.Color := clRandom;
Pie(200, 200, 100, 333, 360);
<span>end.
С цветами, думаю, сам разберешься</span>
Ответ:
Procedure dec2oct(n: longint); { перевод натурального десятичного n в восьмеричную систему счисления и вывод результата } const alpha = '01234567'; var s: string; i: integer; begin s : = ''; while n > 0 do begin s : = alpha[(n mod 8) + 1] + s; n : = n div 8 end; for i: =length(s) to 9 do s: ='0'+s; write(s) end; { использование } var x: longint; begin write('введите десятичное число: '); read(x); write('в восьмеричной системе счисления: '); dec2oct(x); writeln end. тестовое решение: введите десятичное число: 1234567 в восьмеричной системе счисления: 0004553207
Объяснение:
