fkn+antitotal

Как копировать

Делаем так:

1. Выделяем мышью то что нам нужно
2. И нажимаем Энтер (Enter)

-- готово! Текст уже скопирован (в буфере обмена), дальше его можно переносить куда требуется

Не работает выделению мышью?

Делаем так:

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

Пользователь вводит 7 чисел одно за другим, сохраните их в массив, выведите этот массив на экран.
Примечание: вывод значений массива сделайте в отдельном цикле.

type ar = array[1..7] of integer;
var i : integer;
    A : ar;
begin
  for i:=low(A) to high(A) do // инициализация
    readln(A[i]);
  for i:=low(A) to high(A) do // вывод
    write(A[i], ' ');
  readln();
end.  

Урок 15. Задача 1.

Задайте в коде программы массив из чисел семи чисел:

1 12 45 6 7 18 99

Затем обойдите это массив, выводя его значения на экран.

const a : array [1..7] of integer = (1, 12, 45, 6, 7, 18, 99);
var i : integer;
begin
  for i:=1 to 7 do
    write(a[i], ' '); // вывод числа по индексу
  readln();
end.  

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

Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой", например для N=17:

1
2 3
4 5 6
7 8 9 10
11 12 13 14
15 16 17

ПРИМЕЧАНИЕ: для вывода очередной строки используйте отдельную подпрограмму, т.е. для каждой строки вы должны каждый раз (причем один раз для одной строки) вызывать эту подпрограмму.

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

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

- - - - - -
+ + + + + +
- - - - - -
+ + + + + +
- - - - - -

-- для вывода очередной строки используйте подпрограмму, принимающую на вход нужные аргументы.

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

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

var a : integer;

procedure sum(var x: integer);
begin
  x := x + 10;
end;

begin
  write('Enter an integer : ');
  readln(a);
  sum(a);
  writeln('a = ', a);
  readln();
end.

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

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

var a, b, c : integer;

procedure sum(x, y, z: integer);
begin
  write(x + y + z);
end;

begin
  write('Введите три числа: ');
  readln(a, b, c);
  sum(a, b, c);
  readln();
end. 

Урок 14. Задача 1.

Напишите функцию, которая возвращает сумму трёх целых чисел.

var a, b, c : integer;

function sum(x, y, z: integer): integer;
begin
  result := x + y + z;
end;

begin
  readln(a, b, c);
  writeln(sum(a, b, c));
  readln();
end. 

Столкнулись с ситуацией, когда phpStorm подчеркивает "ошибки", которых на самом деле нет (обращение к якобы не существующим константам класса через self::, которые на самом деле существуют).

Перезапуск шторма или переоткрытие файла не помогало, решили через сброс кэша из главного меню:

Разберемся как создавать псевдонимы команд в alpine-контейнере, просто взять и написать в докерфайле:

RUN echo 'alias cept="./vendor/bin/codecept"' >> ~/.bashrc

-- по-умолчанию здесь не получится, дело в том, что:

• 1) alpine linux не использует bash по умолчанию, а использует shell
• 2) дело в том, как именно вы запускаете командную оболочку после старта контейнера

Действуем так: