fkn+antitotal

Решение задачи 18 из главы 13.1

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

Решение с вложенными циклами:

Решение задачи 7 из главы 10.1

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

program Project7;
var a: integer;
begin
  a:=0;
  while (a < 100) do
  begin
       a:=a+7;
       if (a >= 100) then
        break;
       write(a, ' ');
  end;
  readln();
end.

Урок 15. Задача №12.

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

Урок 17 (Решенная задача номер 4)

Пользователь вводит в консоль строку вида:

Имя         123

-- т.е. слева имя и через произвольное количество пробелов число баллов. Разберите эту строку получив имя пользователя как значение в переменной типа string и число баллов в перееменной типа integer;

Урок 17 (Решенная задача номер 3)

Пользователь вводит произвольную строку, посчитайте количество чисел в ней - тех, что больше 125. Например, в строке:

123ret34#2145esrt5

такое число только одно и это:

2145

(сначала выделите эти числа из строки и запишите их в массив (of integer), а затем уже посчитайте число тех, что больше 125)

Урок 15 (Решенная задача номер 12)

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

Задача №13

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

При значенииях k=2 или k=3 и т. д. Программа должна работать без внесения в неё каких-либо изменений?

Решение задачи №11 из главы 11

Вывести на экран все числа от 4 до 100 с шагом 4, т.е.:
4 8 12 16.......100

Вывод консоли
4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100

var
i:integer;
begin
i:=4; // начальное значение счетчика
while i<=100 do
  begin
    write(i, ' ');
    i:=i+4; // изменяем значение счетчика
  end;
readln();
end.

Задача №12 из главы 15

Решение задачи №7 из главы 10.1

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

Вывод консоль
7
14
21
28
35
42
49
56
63
70
77
84
91
98