fkn+antitotal

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

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

var i: integer;
begin
  i:=35;
  while i<=117 do
  begin
     if ((i mod 2)<>0) and ((i mod 3)=0)  then
     writeln (i);
     i:=i+1;
  end;
readln();
end.

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

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

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

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

var i: integer;
begin
  i:=1;
  while i<=15 do
    begin
      writeln ('vvedite celoe chislo');
      readln(i);
      writeln (i+7);
    end;
  writeln ('davai dosvidaniya');
  readln();
end.

Урок 9 Задача 15

У вас есть код:

var f : integer;
begin
  write('Введите число : ');
  readln(f);
  if f > 5 then
  else
    writeln('Не больше 5!');
 
  readln();
end.

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

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

Задача 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. 

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

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

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

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

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

var i: integer;
begin
  for i:=55 to 64 do
     write(i, ' ');

  readln();
end. 

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

55 56 57 58 59 60 61 62 63 64

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

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

var m,s:integer;
begin
  writeln('Vvedite chislo M');
  readln(m);
  s:=1;
  if (s = 1) then
    writeln('soobchenie 1');
  if (s = m) then
    writeln('soobchenie 2');
end;

-- при этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s не равно 1, но равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

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

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:
-- но сейчас код написан неоптимально и при каждом запуске выполняется 2 сравнения, при этом код можно переписать так, что при вводе одного из двух значений, которые приводят к выводу сообщения, сравнение будет выполняться только один раз.
Перепишите программу оптимальным образом.

Для того, чтобы узнать какие файловые системы используются на логических дисках, можно использовать команду:

df -Th

или:

 df -Th | grep "^/dev"

Источник: https://www.tecmint.com/find-linux-files...