fkn+antitotal

Урок 10.1 Задача 3

Выведите на экран, все четные числа от 35 до 64.

Решение:

var i:integer;
begin
    for i:=35 to 64 do
        if (i mod 2) = 0 then
            writeln(i, ' ');
  readln();
end.

Консоль:

36
38
40
42
44
46
48
50
52
54
56
58
60
62
64

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

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
- Если первое больше второго то в порядке возрастания
- Иначе в порядке убывания

Решение:

var i,a,b:integer;
begin
  readln(a,b);
  if (a<b) then
    for i:=a to b do
      writeln(i, ' ')
  else
    for i:=a downto b do
      writeln(i, ' ');
  readln();
end.

Консоль:

Урок 10.1 Задача 1

Выведите на экран, все числа от 35 до 64.

Решение:

var i:integer;
begin
  for i:=35 to 64 do
    write(i, ' ');
  readln();
end.  

Консоль:

35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.

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

Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".

var
  a,b: integer; // для целых чисел
 begin
  writeln('vvedite dva celih chisla: ');
  readln(a,b);

  if (a > b) then // сравниваем два числа
  writeln (12) // если "a > b" выводим "12"
  else
  writeln(888); // если "a <= b" выводим "888"
  readln();
end. 

Консоль:

Задача 3. Урок 9.:

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

var
  a,b: integer; // для целых чисел
 begin
  writeln('vvedite dva celih chisla: ');
  readln(a,b);

  if (a > b) then // сравниваем два числа
  begin
     writeln(12); // выводим "12" в соответствии с условием задачи
  end;

  readln();
end.

Консоль:

ВНИМАНИЕ: для того чтобы подключить host only адаптер к виртуальной машине, у вас должна быть уже создана хотя бы одна внутренняя сеть.

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

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

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

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

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

File
-> Ноst Network Manager

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

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

vboxnet0