Напишите процедуру, которая выводит на экран запись числа меньшего, чем 8^10 в виде 10 знаков в восьмеричной системе счисления.

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

корректны высказывания:

1. программную систему можно рассматривать как множество классов, позволяющих создавать, получать доступ и изменять коллекции данных, называемых объектами

 

3. вызов объектом компонента – основная базисная операция оо программирования

 

 

1) 

var

s: string;

begin

s: ='пробел';

writeln(s);

delete(s,4,1);

insert('д',s,4);

writeln(s);

end.

2)

var

i: integer;

a,b: string;

begin

readln(a);

b: ='';

for i: =1 to length(a) do

b: =b+a[i]+' ';

writeln(b);

end.

3)

var

a: string;

begin

readln(a);

if a[2]=a[4] then writeln('равны')

else  writeln('не равны');

end.