Задача 8 урок 13.1

Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:

1 2 3 4 5
1 2 3 4 5

var b, i: integer;
begin
  for i := 1 to 2 do
  begin
    for b:= 1 to 5 do
      write(b, ' ');
    writeln();
  end;
  readln();
end.

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

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

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

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

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

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

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

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

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

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

var a, b: integer;
begin
  a := 1;
  b := 1;
  while(a < 10) do
  begin
    repeat
      write(a, '*', b, '=', a*b, ' ');
      b := b+1;
    until(b > 9);
    if b > 9 then
      b := 1;
    a := a+1;
    writeln();
  end;
  readln();
end.
    

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

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

var a, b: integer;
begin
  a := 1;
  b := 1;
  while(a < 10) do
  begin
    while (b < 10) do
    begin
      write(a, '*', b, '=', a*b, ' ');
      b := b+1;
    end;
    if (b > 9) then
      b := 1;
    a := a+1;
    writeln();
  end;
  readln();
end. 

Задача 1 урок 13.1

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

var a, b: integer;
begin
  a := 1;
  b := 1;
  repeat
    repeat
       write(a, '*', b, '=', a*b, ' ');
       b := b+1;
    until (b > 9);
    if b > 9 then
      b := 1;
    writeln();
    a := a+1;
  until (a > 9);
  readln();
end.

Вывести список задач отправленных в фон:

jobs

-- выведет список задач и их номера.

чтобы возобновить (развернуть) задачу используйте команду вида:

fg нормерЗадачи

например:

fg 1

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

Напишите функцию, которая определяет являются ли значения переданного массива целых чисел уникальными относительно друг друга.
Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.
Например для массива:

|1|5|4|5|6|7|8|

-- функция должна "сообщить", что он неуникальный

а для:

|1|15|4|5|6|7|8|

-- что уникальный.