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

Дан массив длиной N (не более 100 элементов), состоящий из случайно выбранных чисел из диапазона от 0 до k, где 0≤k Найдите в этом массиве длину самого короткого фрагмента, который содержит все числа от от 0 до k.
Например:

Для быстрой проверки кода через запуск используйте следующий тип массива:

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

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

Задача 16 Урок 15:

Задача 20 урок 13.1

Модифицируйте предыдущий вывод "ёлочкой" так, чтобы в каждой нечетной строке выводились только четные числа, а в каждой четной только нечетные.

Задача 12 Урок 9

Изучите код:

var s, t:integer;
    f, b:boolean;
begin
  f := true;
  b := false;
 
  if (f=true) then
    t:=1
  else
    t:=2;
 
  if (b=false) then
    s:=3
  else
    s:=4;
end. 

-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

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

Есть программа:

Задача 10 Урок 9

Есть программа:

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

:
Урок 14 задача 5

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

Есть программа, где стоит проверка на ввод пользователем числа 1 или числа 5:

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

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

program Project1;
var k, n , d: integer;

begin
write('k=: '); readln(k);
write('n=: '); readln(n);
write('d=: '); readln(d);

if ((k+n>20) or (d*n<55)) then
   writeln('nichya')
else
   writeln('pobedil Kolya');
readln();
end.