fkn+antitotal

урок 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 без остатка. Иначе (если введённое пользователем число не больше единицы) сообщите об ошибке.

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

Выведите на экран, все четные числа от 35 до 64.

var
  i:integer;
begin
  for i:=35 to 64 do
  if ((i mod 2)=0) then
  write(i,'  ');

  readln();
end. 

Консоль:

36  38  40  42  44  46  48  50  52  54  56  58  60  62  64

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

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

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

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

Ошибка возникает при конфигурации прокси вида:

server {
    listen 80;
    server_name proxytest.loc;
    location / {
        proxy_pass localhost:3011/;
    }
}

В качестве решения, можно явно указать префикс - протокол (видимо тут работа зависит от верси nginx):

server {
listen 80;
server_name proxytest.loc;
location / {
proxy_pass http://localhost:3011/;
}
}