fkn+antitotal

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

var i, a: integer;
begin
 { for i:= 35 to 117 do
      if ((i mod 3) = 0) then
         writeln(i);
  for i:= 45 to 99 do
      if ((i mod 2) <> 0) then
         writeln(i); }
  for i:=35 to 117 do
      if ((i mod 2) <> 0) and (i >= 45) and (i <= 99) then
         writeln(i) else
      if ((i mod 3) = 0) then
         writeln(i);

readln();
end.

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

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

var i, a: integer;
begin
 { for i:= 35 to 117 do
      if ((i mod 2) = 0) then
         writeln(i);
  for i:= 45 to 99 do
      if ((i mod 2) <> 0) then
         writeln(i); }
  for i:=35 to 117 do
      if ((i mod 2) <> 0) and (i >= 45) and (i <= 99) then
         writeln(i) else
         if ((i mod 2) = 0) then
            writeln(i);

readln();
end.  

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

var i, a: integer;
begin
  for i:= 35 to 117 do
      if ((i mod 2) <> 0) and ((i mod 3) = 0) then
         writeln(i);

  readln();


end.  

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

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

readln();
end.

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

var i:integer;
begin
  for i:=35 to 64 do
      writeln(i, ' ');

  readln();
end. 

У вас есть число z=5. Пользователь вводит числа в цикле, если хотя бы одно введенное число число было равно 77, то увеличивайте число z на 1 в ответ на каждое введенное число, до тех пор пока пользователь не введет число 55, если такое произойдет то в ответ на это и любое последующее число, уменьшайте z на 1.

link

Модицифируйте код:

var i:integer;
begin
  for i:=1 to 10 do
  begin
     writeln(777);
     break;
  end;
 
  readln();
end.     

-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.

program Project1;

var
  a, b, c: integer;

begin
  a:= 1;
  b:= 2;
  c:= 3;
  if ((a > b) and (a < c)) then
   writeln('Da')
   else
       if ((a < b) and (a > c)) then
     writeln('Da')
     else
       writeln('Net');

       readln();
end.

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

Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".

program Project1;

var a,b: integer;
begin
  a:= 5;
  b:= 8;
  if (a > b) then
     writeln(12)
  else
  writeln(888);

  readln();
end.