fkn+antitotal

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

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

var i: integer;
begin
    for i:=35 to 117 do // цикл по диапазону
      if ((i >= 35) AND (i <= 117) AND ((i mod 3) = 0))then
          write(i, ' ')
      else
        if ((i >= 45) AND (i <= 99) AND ((i mod 2) = 1))then
          write(i, ' ');
    readln();
end.

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

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

var i: integer;
begin
    for i:=35 to 117 do // цикл по диапазону
      if ((i >= 35) AND (i <= 117) AND ((i mod 2) = 0))then
          write(i, ' ')
      else
        if ((i >= 45) AND (i <= 99) AND ((i mod 2) = 1))then
          write(i, ' ');
    readln();
end. 

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

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

begin
    for i:=35 to 117 do // цикл по диапазону
       if ((i mod 2) = 1) AND ((i mod 3) = 0)then
       write(i, ' ');
    readln();
end.

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

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

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

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

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

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

var i:integer;
begin
     for i:=35 to 64 do // цикл по диапазону
         if ((i mod 2) = 0)then
         write(i, ' ');
     readln();
end.

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

Подсказки:

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

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

Задача 10 Урок 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, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

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

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5: