fkn+antitotal

Если вам требуется сделать так, чтобы локальная ветка снова соответствовала тому, что раньше отправили с помощью push во внешний репозиторий, то можно использовать git reset (в случае если локальные изменения вообще не интересуют более, то с опцией --hard) -- см. раздел "Удаление всех неопубликованных коммитов"

Подразумевается, что удаленная ветка origin/имяветки существует и ее кэш локально обновлен, если нет то на всякий случай предварительно можно выполнить:

Задача 7. Урок 10.1.

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

1.

Задача 9. Урок 10.1.

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

var
  i:integer;
begin

  for i:=1 to 100 do
  write(i,'  ');

  writeln();

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

  readln();
end.  

Консоль:

Задача 8. Урок 10.1.

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

var
  i:integer;
begin

  for i:=35 to 117 do
  if ((i mod 3)=0) then
  write(i,'  ');
  writeln();
  for i:=45 to 99 do
  if ((i mod 2)=1) then
  write(i,'  ');

  readln();
end.

Консоль:

урок 11

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

p

урок 11\

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

program Project1;
var a :integer ;

 begin
 a := 1;

 while  (a<=15) do
begin
writeln('ведите целое число');
readln(a);
writeln(a + 7);
end;
writeln('пока!');
readln();

end.
                               

Задача 6. Урок 10.1.

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

var
  i:integer;
begin

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

  readln();
end.

Консоль:

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

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

Пусть нам требуется вывести на экран строку (ту же, что мы рассматривали выше в примерах):

Задача 5. Урок 10.1.

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

var
  i,a:integer;
begin
  writeln('Vvedite celoe chislo:  ');
  readln(a);

  if (a>100) then
  for i:=a downto 1 do
  write(i,'  ');
  if (a<100) then
  for i:=1 to a do
  write(i,'  ');

  readln();
end.

Консоль:

Задача 4. Урок 10.1.

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