1)Что произойдет, если оператор Write записать как Writeln? 2)Для вывода каких чисел используется запись Write ( ‘ m= ‘ , m : 5 : 2)​

1) после вывода на экран текста произойдет переход на новую строку

Відповідь:



Пояснення:

1 . обычный режим;  режим Web-документа;  режим разметки страницы;  режим структуры документа;  схема документа;  во весь экран;  режим предварительного просмотра.

2 . режим разметки страницы

3. Enter

4.  1) «Alt» +«0151». Цифры  на цифровой клавиатуре, которая находится справа, при включенном «NumLock».

   2) наберите «2014» и нажмите «Alt+X» –

   3) «Ctrl+Alt+-

   4) «Вставка»\«Символ» \«Другие символы»\«Шрифт»\«(обычный текст)»\«Набор» – «знаки пунктуации»\«Вставить»

5. 1) «Ctrl+-»

   2) символ "-"

6. 1950 =  MCML

   1963 =  MCMLXIII

I - 1

X - 10

C - 100

M - 1000

V - 5

L - 50

D - 500

I - 1 000

V - 5 000

X - 10 000

L - 50 000

C - 100 000

D - 500 000

M - 1 000 0000

7. Клавиши

На один символ влево  

Стрелка "Влево"

На один символ вправо

Стрелка "Вправо"

На один строку вверх

Стрелка "Вверх"

На один строку вниз

Стрелка "Вниз"

На один слово влево

Ctrl + Стрелка "Влево"

На один слово вправо

Ctrl + Стрелка "Вправо"

На один абзац вверх

Ctrl + Стрелка "Вверх"

На один абзац вниз

Ctrl + Стрелка "Вниз"

В начало текущей строки

Home

В конец текущей строки

End

На один экран вверх

Page Up

На один экран вниз

Page Down

В начало экрана

Ctrl + Page Up

В конец экрана

Ctrl + Page Down

В начало документа

Ctrl + Home

В конец документа

Ctrl + End

9.  Установленный на ноутбуке эмулятор мыши (Alt+Shift+NumLock)

Тачпад.

Определенные клавиши на клавиатуре (8.)

Program ToDec;

Uses crt;
var s:string;
n,l,i:integer;

 

function Pow(x,y:integer):integer;
begin
     if y>0 then Pow:=Pow(x,y-1)*x
               else Pow:=1;
end;

function ToDec(A : string) : integer;
var L : Byte;
begin
      if A = '' then ToDec := 0
                else begin
                              L := length(A);
                               case A[1] of
                                     '0' : ToDec := ToDec(Copy(A, 2, L - 1));
                                     '1' : ToDec := Pow(2, L - 1) + ToDec(Copy(A, 2, L - 1));
                                end;
     end;
end;

begin
     clrscr;
     write('Введите двоичное число: ');
     readln(s);
      writeln('Это число в десятичной системе : ', ToDec(S));
 readkey;
end.