fkn+antitotal

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

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

Протестируйте работу функции на массиве из 7 случайных элементов из диапазона от 1 до 15-ти.

В ответ на команду:

git fetch && git rebase origin/master

Получаем:

First, rewinding head to replay your work on top of it...
error: The following untracked working tree files would be overwritten by checkout:
.........

Возможная причина

Судя по всему гит тут падает, потому что есть риск потерять файлы, находившиеся в игноре (не под контролем) в результате применения измений, или что-то такое

В ответ на команду:

git fetch && git rebase origin/master

Получаем:

First, rewinding head to replay your work on top of it...
error: The following untracked working tree files would be overwritten by checkout:
.........
.........
Aborting
fatal: Could not detach HEAD

Возможная причина

Судя по всему гит тут падает, потому что есть риск потерять файлы, находившиеся в игноре (не под контролем) в результате применения измений, или что-то такое

Задача 3 Урок 14.1:

У вас есть код:

Задача 2 Урок 14.1:

Напишите процедуру, которая получает на вход два целых числа и выводит на экран то, которое больше.

var a,b:integer;
procedure podprog(c,d:integer);
begin
  if c>d then
    writeln('a bolshe=',' ',a)
  else
    writeln('b bolshe=',' ',b);
    readln();
end;
begin
   writeln('vvedite a');
   readln(a);
   writeln('vvedite b');
   readln(b);
   podprog (a,b);
end.

Вывод консоли:

Задача 1 Урок 14.1:

Напишите процедуру, которая просит пользователя ввести три числа, и потом выводит их в обратном порядке

procedure podprog();
var a,b,c:integer;
begin
  writeln('vvedite chislo');
  readln(a);
  writeln('vvedite chislo');
  readln(b);
  writeln('vvedite chislo');
  readln(c);
  writeln(c,b,a);
end;
begin
   podprog();
   writeln('End');
   readln();
end.

Вывод консоли:

Задача 5 Урок 13.2:

Задание: визуализируйте на счетах введенное пользователем число.

Задача 4 Урок 13.2:

Подготовительная задача для "счет" Пользователь вводит число от 1 до 9, вывести его в представлении как счетах со сдвинутыми костями (всего десять костей на спице)

Задача 3 Урок 13.2:

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (с рамкой по краям):

var m, m2, i, j: integer;
begin
  m := 4;
  m2 := 10;
  for i := 1 to m do
    begin
      for j := 1 to m2 do
        if (i = 1) or (i = m) or (j = 1) or (j = m2) then
          write('+ ')
        else
          write('- ');
    writeln();
    end;
readln();
end.  

Вывод консоли:

Задача 2 Урок 13.2:

Составьте программу, которая выводит на экран прямоугольный флаг N×M вида (c чередованием плюсов и минусов в строках, используйте циклы while):