fkn+antitotal

Урок 8 Задача 4

Получите от пользователя 5 строк, сложите их и выведите полученный результат на экран.

program u8z4;
var
  a,b,c,d,e: string;
  begin
    writeln('vvedite stroky a');
    readln(a);
    writeln('vvedite stroky b');
    readln(b);
    writeln('vvedite stroky c');
    readln(c);
    writeln('vvedite stroky d');
    readln(d);
    writeln('vvedite stroky e');
    readln(e);

    writeln(a+'123'+b+c+d+e);
    readln();

  end.      

Консоль:

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

Объявите 5 переменных строкового типа. Одной из них присвойте значение и выведете значение этой переменной на экран

program u8z3;
var
  a,b,c,d,e: string;
  begin
    a:='2';
    writeln(a);
    readln();

  end.         

Консоль:
2

урок 10 задача 2

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

program Project1;
var y, t:integer;
begin
 writeln('Введите целое число y');
 writeln('Введите целое число t');
  if ( y > t) then
    for y to t do
  else
    for y downto t do
 readln()
end.

урок 10 задача 1

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

program Project1;
  var
    a :integer;
begin
  for a:=65 to 64 do
  write(a);
  readln();
  end.             

урок 9 задача 7

Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).
Примечание: решение с помощью AND более удобно на практике, но для тренировки понимания тут мы решаем через вложенные блоки.

Задача 7 Урок 9:

Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).
Примечание: решение с помощью AND более удобно на практике, но для тренировки понимания тут мы решаем через вложенные блоки.

урок 9 задача 6

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

Из главного меню virtualbox выполняем:

File
-> Host Network Manager

И в открывшемся окне кликаем по пиктограмме Create, после чего можно указать настройки адаптера

Nonexistent host networking interface, name 'vboxnet0' (VERR_INTERNAL_ERROR).

Для сравнения фрагметов файлов можно использовать плагин Partial Diff:
https://marketplace.visualstudio.com/items?itemName=ryu1kn.partial-diff

Чтобы сравнить два фрагмента надо:

1. Выделить первый фрагмент текста, кликнуть по нему правой кнопкой мыши и выбрать опцию "Добавить для сравнения"
2. Выделить второй фрагмент текста и выбрать опцию "Сравнить с предыдущим выделенным фрагментом"

Также плагин умеет сравнивать выделенное с содержимым буфера обмена. Отличная шутка)