fkn+antitotal

Урок 10.1

Пользователь вводит целое число, если оно больше единицы, то выведите на экран
все целые числа от этого числа до единицы (в обратном порядке), которые делятся
на 5 без остатка. Иначе (если введённое пользователем число не больше единицы)
сообщите об ошибке.

Урок 10.1

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

var i: integer;

begin
    for i := 35 to 64 do
        begin
            if ((i mod 2) = 0) then
                write(i, ' ')
        end;
    readln();
end.

КОНСОЛЬ

36 38 40 42 44 46 48 50 52 54 56 58 60 62 64

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

У вас есть массив чисел от 1 до 17, выведете его на экран, обходя в цикле таким образом:

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

ПРИМЕЧАНИЕ: эту задачу можно решить, как вложенными циклами, так и вообще одним циклом (что более изящно).

http://fkn.ktu10.com/?q=node/8539
Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55
--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение,

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

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

АЛГОРИТМ:
1 запись масива, N -длинна массива, к примеру = 100
2 вводим число к, К -число больше равно 0 и меньше 100, к примеру = 5
3 получаем ряд чисел от 0 до 5
4 находим отрезок индексов массива от m до p, к примеру от 20 до 40
5 сравниваем есть ли в этом отрезке массива от m до p
все числа от 0 до 5

Условие: Проверить можно ли строки из m перестановкой
символов получить строку n.}
{К алгоритму:
флаг нам в руки когда:
1/строки равны по размеру;
2/каждый элемент первой и второй строки встресчаются
равное количество раз;

Задача 8 урок 16

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

Задача 7 урок 16

Пользователь вводит строку произвольных символов,
выделите из неё массив первых 8 строковых литералов,
которые являются числами.
И выведите эти числа на экран.

Задача 6 урок 16

Вариант из разбора:

Вопрос: сделал точно по шаблону из разбора - не работает. Выводит в консоль только последнее число. Почему?

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

Пользователь вводит массив целых чисел из 7 элементов. Найдите из них два самых больших числа и выведите их на экран.

var a : array [1..7] of integer;
i,max,max2: integer;
begin
for i:=low(a) to high(a) do
begin
  writeln('vvedite chislo ', i, ':');
  readln(a[i]);
end;
for i:= low(a) to high(a) do
begin
  if(a[i]>=max) then
  begin
    max2:= max;
    max:= a[i];
  end;
end;
write('max: ',max, ' max2: ',max2);
readln();
end.