fkn+antitotal

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

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

1
5
ответ: 1 2 3 4 5

Иначе в порядке убывания, пример консоли:

5
3
ответ: 5 4 3

Проверить решение для пар значений:

10 20
-- должны увидеть все числа от 10 до 20, и для:

20 10
-- все числа от 20 до 10 в обратном порядке

Урок 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. распаковываем архив, запускаем файл