fkn+antitotal

http://fkn.ktu10.com/?q=node/8697

{Пользователь вводит числа до тех пор пока не введёт число меньшее 1.
В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа,
при этом делящиеся на 5.
Если же пользователь ввел число меньшее 1, то завершите программу.}

http://fkn.ktu10.com/?q=node/8697

{Выведите на экран таблицу умножения используя один цикл while и один repeat-until }

program task3_lesson13_1;
var i, j : integer;
begin
     i := 1;
     while i <= 9 do
           begin
             j := 1;
             repeat
                   writeln(i, ' * ',j,' = ',i * j);
                   j := j + 1;
             until (j > 9);
             i := i + 1;
             writeln();
           end;
     readln();
end. 

http://fkn.ktu10.com/?q=node/8697

{Выведите на экран таблицу умножения используя только циклы вида while.

program task2_lesson13_1;
var i,j:integer;
begin
     i := 1;
     while i <= 9 do
          begin
               j := 1;
               while j <= 9 do
                    begin
                         writeln(i, ' * ',j,' = ',i * j);
                         j := j + 1;
                    end;
               i := i + 1;
               writeln();
          end;
     readln();
end.

http://fkn.ktu10.com/?q=node/8697
Выведите на экран таблицу умножения используя только циклы вида repeat/until.

program task1_leson13_1;
var i,j:integer;
begin
     i := 1;
     repeat
       j := 1;           // приводим множитель в начальное состояние
       repeat
         writeln(i, ' * ',j,' = ',i * j);
         j := j + 1;
       until (j > 9);
       writeln();
       i := i + 1;
     until (i > 9);
     readln();
end.

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

Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.

var i,a: integer;
begin
  writeln('vvedite 4islo > 0 - ');
  readln(i);
    if (i > 0) then
       for a := 1 to i do
          if ((a mod 2)=0) then
             write(a, ' ')
    else if (i < 0) then
       writeln('oshibka!');
    readln();
end. 

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

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

var i,a: integer;
begin
  writeln('vvedite 4islo > 0 - ');
  readln(i);
    if (i < 0) then
       writeln('oshibka!')
    else
       for a := 1 to i do
       write(a, ' ');
   readln();
end.  

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

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

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

Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.

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

Выведите на экран таблицу умножения используя один цикл while и один repeat-until .

var i,j: integer;
begin
  i := 1;
  repeat
    writeln(i, '*', j, '=', i * j, ' ');
      j := 1;
      while (j < 10) do
      begin
         writeln(i, '*', j, '=', i * j, ' ');
         j := j + 1;
      end;
    i := i + 1;
  until (i >= 9);
  readln();
end. 

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

Выведите на экран таблицу умножения используя только циклы вида while.

var i,j: integer;
begin
  i := 1;
  while (i < 10) do
    begin
      j := 1;
      while (j < 9) do
        begin
           writeln(i, '*', j, '=', i * j, ' ');
           j := j + 1;
        end;
       writeln(i, '*', j, '=', i * j, ' ');
       i := i + 1;
    end;
  readln();
end.