fkn+antitotal

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

var i, a: integer;
begin
 writeln('vvedite celoe chislo');
 readln(a);
   if (a > 1)then
     begin
      for i := a downto 1 do
        if(( i mod 5) = 0) then
         writeln( 'i = ', i);
     end
    else
      writeln('oshibka');
 readln();
end. 

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

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

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

Дан массив длиной N (не более 100 элементов), состоящий из случайно выбранных чисел из диапазона от 0 до k, где 0≤k Найдите в этом массиве длину самого короткого фрагмента, который содержит все числа от от 0 до k.
Например:
Для N = 6, k=2:
202211 длина=4
Для N = 10, k=2:
2022110012 длина=3
Для N = 15, k=3:
202233002303210 длина=4
Для N = 7, k=2:
0100020 длина=5

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

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

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

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

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

У вас есть текстовый файл с информацией об итогах соревнований (каждая строка имеет формат: имя + произвольное число пробелов + балл 1 + произвольное число пробелов + балл 2):

Вася    16     485
Коля    17   555
Юра     18   61

где:
слева указаны имена участников, а справа число баллов.
Первое число в каждой строке -- штрафные баллы набранные участниками, а второе число -- "положительные баллы", то есть если у нас есть строка:

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

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

Для N = 6, k=2:
202211 длина=4
Для N = 10, k=2:
2022110012 длина=3
Для N = 15, k=3:
202233002303210 длина=4
Для N = 7, k=2:
0100020 длина=5

blockquote>Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

[к оглавлению]

Помимо различных способов фильтрации данных, которые мы рассмотрели в предыдущих главах, синтаксис SQL предлагает возможность извлечь данные, частично совпадающие с неким шаблоном, который формируется при помощи метасимволов. Обратите внимание, что применить это можно только к полям со строковым значением.

Чтобы показать СУБД, что в условии WHERE есть шаблон, дополнительно используется оператор LIKE.

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

Создайте файл в вашей операционной системе и выведите в консоль всё его содержимое.

var f1 : text;
    filename, s : string;

begin
  filename := '/home/rm/Pascal/unput.txt';
  assign(f1, filename);
  reset(f1);
  writeln('fali-soderzimoe sledyuhee');
  while not eof(f1) do
  begin
    readln(f1, s);
    writeln(s);
  end;
end.