fkn+antitotal

В главном окне Virtualbox слева есть список виртуальных машин, чтобы открыть настройки конкретной машины:

1. Нажмите правой кнопкой мыши на название виртуальной машины
2. И выберите пункт Settings (Настройки)

Как изменять настройки - если не получается

Некоторые настройки, особенно связанные с "железом" - Дисплей, процессор, система и т.д. можно изменять только предварительно выключив машину (не сохранив, а именно как будто выключив ее - Power Off)

Из главного меню:

File
-> Ноst Network Manager

Затем наживаем кнопку Create

По умолчанию первой создается новая сеть:

vboxnet0

Задача 6 Урок 2

Выведите на экран число 2 как числовой литерал

begin
  write(2);
  readln();
end.
 

Вывод консоли:

2

Урок 13.2 Задача 5

Задание: визуализируйте на счетах введенное пользователем число

Урок 11. Задание 4

Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

Урок 11. Задание 3

Решите с помощью цикла while:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

var i, a:Integer;
begin
i:=0;
a:=0;
    while i<15 do
    begin
        readln(i);
        if i<15 then
        begin
            a:=a+i;
            writeln(a);
        end
        else
            break    
    end;
end.

консоль:

Урок 11. Задание 2

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и предыдущего введённого им числа, если же введённое число больше 15, то цикл необходимо завершить, не выводя в ответ сумму.

Урок 11. Задание 1

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

var i: integer;
begin
i:=0;
    while i<15 do
    begin
        readln(i);
        if i<15 then
        begin
            writeln(i+7);
        end
        else
            break    
    end;
end.

консоль:

Урок 10. Задача 9

Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

var i: Integer;
begin
    for i:=1 to 100 do
        if ((i mod 7)=0) then
        write(i, ' ')  
end.

консоль:

7 14 21 28 35 42 49 56 63 70 77 84 91 98

Урок 10. Задача 8

Выведите на экран, все числа делящиеся на 3 из диапазона от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.

var i: Integer;
begin
for i:=35 to 117 do
   begin

    if (i >= 35) and (i <= 117) and (i mod 3 = 0) then
         write(i, ' ')
    else
      if  (i >= 45) and (i <= 99) and (i mod 2 <> 1) then
          write(i, ' ');
    end;
readln();
end.

консоль: