fkn+antitotal

Урок 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

работает как-то не очень, пока не получилось настроить

Используйте в качестве аргумента для setState коллбэк, чтобы получить доступ к реальному предыдущему значению.
Это поможет, если у вас возникают проблемы с получение реального предыдущего состояния.

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

2)Пользователь вводит строку произвольных символов, посчитайте количество цифр в ней, численное значение которых больше либо равно 5.

var s: string;
    i, c: integer;
begin
 writeln('vvedite stroky');
 readln(s);
 writeln(s);
 c := 0;
 for i := 1 to length(s) do
   if (s[i] >= '5') and (s[i] <= '9') then
     c := c + 1;
 writeln(c);
end.

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

1)Пользователь вводит строку, проверьте является ли она числом, если да, то выведите в ответ это число, иначе сообщите об ошибке.

var s : string;
    I, Coder : integer;

begin
  writeln('vvedite stroky');
  readln(s);
  val(s, I, Coder);
  if (coder = 0) then
    write(s)
  else write('osibka v ', coder, ' elemente stroki');
end.

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

8)Пользователь вводит произвольную строку, перестройте её в "ёлочку".
Например, если он ввел:

rewt34t54346t566

то в ответ программа должны вывести:

r
ew
t34
t543
46t56
6

Решение. Сделал ход решения через функцию, что дает возможность применять ее в других реализациях программного кода.