fkn+antitotal

Урок 19 Задача 3:

begin
  WriteLn('Put k failu programmy: ');
  WriteLn(ParamStr(0));
  readln();
end.

Имеется текстовый файл в котором содержится не более 30 строк, в каждой строке не более 30 символов (пробелы тоже считаются символами). Цифры и другие символы перемешаны в каждой строке.

Задание: найдите максимальное число, c учетом того, что числом считаются подряд идущие цифры не только по горизонтали, но и по вертикали.

Задание 3 Урок 10.1

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

var i:integer;
begin
 for i:=35 to 64 do
  if ((i mod 2) = 0) then
   write(i, ' '); // выводим значения счетчика через пробел
  readln();
end.    

Консоль:

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

Задание 1 Урок 10

Пользователь вводит число, определите делится ли оно на 4

var a: integer;
begin
  write('Введите число a: ');
  readln(a);
  if (a mod 4) = 0 then
    writeln('a делится на 4')
  else begin
    if (a div 4) <>0 then
    writeln('a делится на 4 c остатком');
  end
end.

Задание 15 Урок 9

Есть программа:

var f : integer;
begin
  write('Введите число : ');
  readln(f);
  if f = 0 then
  else
    writeln('Не равно 0!');
  
  readln();
end. 

-- который сообщает пользователю, что число не равно нулю, если это действительно так, или в обратной ситуации не делает вообще ничего.

Задача: Перепишите это код в неполной форме (без использования else).

Задание 14 Урок 9

Есть программа:

var s, t:integer;
    f, b:boolean;
begin
  f := true;
  b := false;
  
  if (f=true) then
    t:=1
  else
    t:=2;
  
  if (b=false) then
    s:=3
  else
    s:=4;
end.   

-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

Задание 13 Урок 9

Есть программа:

Наблюдаем ошибку в хостовой Windows для виртуализированной Ubuntu 22.04 (наверное))
- решением, судя по всему, является:

Проблема с конкретной версии ОС

1. обновление ядра самой ОС, если важна текущая установка
2. или просто скачать новый образ ОС, где проблема уже исправлена (см. ссылку в предыдущем пункте из предыдущего пункта)

Отсутствие дискового пространства

Еще возможный вариант - отсутствие дискового пространства в виртуальной машине - см. наши уроки по настройке

Напимер:

mysql -u имяпользователя -p -e "create database somedb"

или с указанием пароля:

mysql -u имяпользователя -p12345 -e "create database somedb"

1. Идем на официальный сайт https://desktop.telegram.org/
2. Качаем архив
3. Переносим его в папку, где у нас лежат программы (а не "Загрузки", которые периодически чистятся)
4. распаковываем архив, запускаем файл

После того как вы установили гостевые дополнения (VirtualBox Guest Addition) из главного меню окна запущенной виртуальной машины выберите:

Devices (устройства) -> 
Shared Clipboard (общий буфер обмена) -> 
Bidirectional (двунаправленный)

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