задача 5 урок 10:

Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа

задача 4 урок 10:

Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

var i:integer;
begin
    for i:=35 to 117 do
        if ((i mod 2) = 1) AND ((i mod 3) = 0) then
          write(i, ' ');
  readln();
end.

задача 3 урок 10:

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.

var i, a:integer;
begin
  readln(a);
  if (a > 100) then
      for i:=a downto 1 do
          write(i, ' ')
  else
      for i:=1 to a do
          write(i, ' ');

  readln();
end.   

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

Пользователь вводит целое число, если оно больше единицы, то выведите на экран все целые числа от этого числа до единицы (в обратном порядке), которые делятся на 5 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

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

Есть программа, где пользователь вводит число 1 или число 5:
var s:integer;
begin
writeln('Vvedite chislo 1 ili 5');
readln(s);
if (s = 1) then
writeln('soobchenie 1');
if (s = 5) then
writeln('soobchenie 2');

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

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

var i:integer;
begin

  for i:=35 to 64 do
    if ((i mod 2) = 0) then
        write(i, ' ');

  readln();
end. 

Задача 21 Урок 13.1

Пользователь передает целые положительные число N и M, выведете на экран последовательность от 1 до N, так чтобы ширина "ёлочки" увеличивалась до M чисел, то уменьшалась до 1. Например, для M=3 и N=25 получим:

задача 12 урок 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, с сохранением той же логики работы программы.

Подсказки:

Задача 20 Урок 13.1

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные, например для N=17:

Задача 19 Урок 13.1

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:

1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17

ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).
Решите указанными двумя способами.