fkn+antitotal

http://fkn.ktu10.com/?q=node/8612
Выведите на экран, все четные числа от 35 до 64

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

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

Пользователь вводит целые числа в цикле. Запишите в массив целых чисел (из 3 элементов) все нечетные отрицательные. Как только массив будет заполнен, завершите цикл ввода новых значений пользователем и распечатайте полученный массив.

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

Дано целое положительное число N. Выведите на экран все число от 1 до N (по возрастанию).

var N :integer;

function num(N:integer):integer;
begin
  if(N <> 1) then
    result :=  num(N-1);
  writeln(N);
end;

begin
  readln(N);
  num(N);
  readln();
end.     

Урок 10.2

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

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 оставьте без изменений).

Урок 10.1

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

var i: integer;

begin

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

  readln();

end.

КОНСОЛЬ

36 39 42 45 47 48 49 51 53 54 55 57 59 60 61 63 65 66 67 69 71 72 73 75 77 78 79 81 83 84 85 87 89 90 91 93 95 96 97 99 102 105 108 111 114 117

Урок 10.1

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

var i: integer;

begin

    for i := 35 to 117 do
        begin
            if ((i mod 3) = 0) then
                write(i, ' ')
            else if ((i > 45) and (i < 99) and ((i mod 2) <> 0)) then
                write(i, ' ');
        end;

    readln();

end.

КОНСОЛЬ

Урок 10.1

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

Урок 10.1

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

Урок 10.1

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

var i: integer;

begin

    for i := 35 to 117 do
        begin
            if (((i mod 2) <> 0) and ((i mod 3) = 0)) then
                write(i, ' ') ;
        end;

    readln();

end.

КОНСОЛЬ

39 45 51 57 63 69 75 81 87 93 99 105 111 117

Урок 10.1

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