fkn+antitotal

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

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

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

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

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

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



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

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

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

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

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

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

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

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

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

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

  end. 

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

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

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

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

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

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

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

var i:integer;
  begin
    for i:=35 to 64 do
        begin
          writeln(i);
        end;
  readln();
  end.   

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

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

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

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

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.