Ответ:
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
Объяснение:
Var a,b,c:real;
Begin
Write('Введите 2 числа: '); readln(a,b);
s:=a+b;
Writeln('Сумма этих чисел = ',s);
end.
N=2;
Соедини точки 4 и 1; N = N+1 = 2+1 = 3; N=7 ⇒ ложь
Соедини точки 6 и 2; N = N+1 = 3+1 = 4; N=7 ⇒ ложь
Соедини точки 8 и 3; N = N+1 = 4+1 = 5; N=7 ⇒ ложь
Соедини точки 10 и 4; N = N+1 = 5+1 = 6; N=7 ⇒ ложь
Соедини точки 12 и 5; N = N+1 = 6+1 = 7; N=7 ⇒ истина
Полученный рисунок - в прилагаемом файле.
Главное меню расположено в верхней строке окна заключает в себе все возможности программы, рассортированные по более или менее однотипным командам. Для входа в меню необходимо либо воспользоваться мышью, либо нажать F10, затем перемещаться по меню с помощью клавиш управления курсором. Покинуть меню можно, нажав клавишу Esc.