fkn+antitotal

Дан массив длиной N (не более 100 элементов). Проверить, что в этом массиве на отрезке индексов от m до p ( 1≤m

Дан массив длиной N (не более 100 элементов). Проверить, что в нем в встречаются все числа от 0 до k, где 0≤k

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

a1 # a2 # ..... # aN

Где:

a1, a2,....., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)

Задача 8 Урок 9:

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

Урок 8 Задача 6

Получите от пользователя четыре строковых значения, выведете на экран результат проверки условия:
""первое значение равно третьему и первое НЕ равно четвертому или четвертое равно третьему"".

Урок 8 Задача 5

Получите от пользователя три произвольных строки, одним выражением выполните конкатенацию следующим образом:
""первая строка + произвольный литерал + вторая строка + третья строка""
Результат конкатенации выведите на экран.

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

Получите от пользователя 5 строк, сложите их и выведите полученный результат на экран.

program u8z4;
var
  a,b,c,d,e: string;
  begin
    writeln('vvedite stroky a');
    readln(a);
    writeln('vvedite stroky b');
    readln(b);
    writeln('vvedite stroky c');
    readln(c);
    writeln('vvedite stroky d');
    readln(d);
    writeln('vvedite stroky e');
    readln(e);

    writeln(a+'123'+b+c+d+e);
    readln();

  end.      

Консоль:

Урок 8 Задача 3

Объявите 5 переменных строкового типа. Одной из них присвойте значение и выведете значение этой переменной на экран

program u8z3;
var
  a,b,c,d,e: string;
  begin
    a:='2';
    writeln(a);
    readln();

  end.         

Консоль:
2

урок 10 задача 2

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

program Project1;
var y, t:integer;
begin
 writeln('Введите целое число y');
 writeln('Введите целое число t');
  if ( y > t) then
    for y to t do
  else
    for y downto t do
 readln()
end.

урок 10 задача 1

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

program Project1;
  var
    a :integer;
begin
  for a:=65 to 64 do
  write(a);
  readln();
  end.