fkn+antitotal

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

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

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

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

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

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

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

1x1 = 1
1x2 = 2
......

var i, j: integer;
begin
  i := 1;
  repeat 
    j := 1;
   
      write(i, '*', j, '=', i*j, '   ');
        j:=j+1;
      until (j>9);

    writeln();
    i:=i+1;  
  until (i > 9); 

  readln();
end.

У вас есть программа, использующая цикл while:
var
i: integer;
begin
i:=1;
while i begin
write(i, ' ');
i:=i+5;
end;

readln();
end.

Вариант 1.
Используем цикл REPEAT/UNTIL

begin
  i := 1;
  repeat
    write(i, ' ');
    i := i + 5;
  until (i >100);
  readln();
end.

Вариант 2.
Используем цикл FOR

var i: integer;
begin

for i:=5 to 34 do
write(i, ' ');

readln();
end.
Перепишите её, используя цикл while.

var i: integer;
begin
i := 5; 
 
  while i <= 34 do
  begin
    write(i, ' ');
    i := i + 1;
  end;
  
  readln();
end.

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.

program project125;
var a: integer;
begin
  a:= 35;
  repeat
    if ((a mod 2)=0) or ((a mod 2)=1) and ((a mod 3)=0)
    and ((a mod 3)=0) and (a>44) and (a<100) then
      write(a, ' ');
      a:=a+1
  until (a>117) ;
  readln();
end.

Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

program project124;
var a,b:integer;
begin
  a:=35;
  b:=117;
  repeat
    if ((a mod 2)=0) and ((a mod 3)=0) and ((a mod 6)=0) then
      write(a,' ');
      a:=a+1;
  until (b<a);
  readln();
end.

Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

var a,b: char;
begin
 repeat
   writeln ('введи символ и нажми Enter');
  readln (a);
  b:='#';
  if a=b then break
  else
  writeln ('&');
  until (a=b);
end.

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

var f: integer;
begin
  writeln('Введите целое число');
  readln(f);
  if f > 1 then
    begin
      if f mod 23 = 0 then
        repeat
          writeln(f)
        until (f = 1);
    end
  else
   writeln('ошибка');
 
  readln();
end.