fkn+antitotal

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

Задача 7 Урок 10

Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число

var i: integer;
begin
  for i:=1 to 100 do
    if ((i mod 7)=0) then
      writeln(i,' ');
  readln();
end

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

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

var i: integer;
begin
  for i:=35 to 117 do
    begin
      if ((i mod 3)=0) then
        writeln(i,' ')
      else
        if (i>=45) and (i<=99) then
           if ((i mod 2)=1) then
              writeln(i,' ');
    end;
  readln();
end. 

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

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

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

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

решение задачи:

program Lesson92;
var a,b:integer;
begin
     writeln('vvedite chisla a and b');
     readln(a, b);
     if (a > b) then
         writeln('12')
     else
         writeln('888');
     readln();
end.

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

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

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

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

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

var a,i: integer;

begin
  writeln('vvedite A-');
  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.        

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

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

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

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

решение задачи:

program Lesson91;
var a,b:integer;
begin
    writeln('vvedite chisla a and b');
    readln(a,b);
    if (a > b) then
       writeln('12');
    readln();
end.    

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

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

var i: integer;
begin
  for i:=35 to 64 do
  if ((i mod 2)=0) then
     writeln(i,' ');
  readln();
end.