Формы Бэкуса-Наура.

Задача 1

<Cifra> ::= [0-9]
<CeloeChislo> ::= "0" | ([1-9] <Cifra>*)
<Virazhenie> ::= <CeloeChislo> (("+" | "-") <CeloeChislo>)*

Задача: Модифицируйте это выражение таким образом, чтобы была возможна поддержка операции умножения, т.е. чтобы форма соответствовала выражениям:

3
23*4
1+
1+23*4*7+6-7+8*9

Решение:

У вас есть число z=5. Пользователь вводит числа в цикле, если за последние 4 попытки ввода было хотя бы одно число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.

Пример работы в консоли:

У вас есть число z=5. Пользователь вводит числа в цикле, если хотя бы одно введенное число число было равно 77, то увеличивайте число z на 1 в ответ на каждое введенное число, до тех пор пока пользователь не введет число 55, если такое произойдет то в ответ на это и любое последующее число, уменьшайте z на 1.
Цикл и программа должны завершиться, когда число z станет отрицательным.
(в начале цикла, если первое введенное число не равно ни 55, ни 77, считаем, что мы должны увеличивать z на 1 пока не встретим 55 или 77, которые укажут на конкретные действия).

У вас есть число z=5. Пользователь вводит числа в цикле, если очередное введенное число больше или равно 15, то увеличивайте число z на 1 в ответ на каждое введенное число, а если меньше 15, то уменьшайте на 1. Цикл и программа должны завершиться, когда число z станет отрицательным.

Пользователь вводит целое 5-тизначное число, выведите все его цифры в обратном порядке, например для 14564 получим:

46541

(используйте опеции div и mod, подразумевается решение через цикл )

program project1113;
var a,b:integer;
begin
  writeln('Vvedite 5-i znachnoe chislo');
  readln(a);
  while ((a mod 10)<> 0) do
    begin
      b:= a mod 10;
      a:= a div 10;
      write(b);
    end;
  readln();
end.

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

http://fkn.ktu10.com/?q=node/8697
Выведете на экран числа от 1 до 5 два раза с помощью вложенных циклов. Так чтобы в консоли было:
1 2 3 4 5
1 2 3 4 5

var a,b,i: integer;
begin
while a<2 do
begin
i:=1;
for b:=1 to 5 do
write (b,' ');
writeln();
a:=a+1;
end;
end.

http://fkn.ktu10.com/?q=node/8697
Модифицируйте предыдущую задачу так, чтобы в случае, если число удовлетворяет требованиям (целое, положительное), то на экран выводились четные числа.

var m, i: integer;
begin
writeln ('введи целое число');
readln (m);
i:=1;
while (m>0) do
begin
for m:=i to m do
if m mod 2=0 then
writeln (m,' ');
readln ();
end;
writeln ('ошибка');
end.

http://fkn.ktu10.com/?q=node/8697
Пользователь вводит целое положительное число, если оно не соответствует критериям (то есть не является положительным), выведете сообщение об ошибке, в противном случае выведете на экран все числа от 1 до введённого пользователем.

var m, i: integer;
begin
writeln ('введи целое число');
readln (m);
i:=1;
while (m>0) do
begin
for m:=i to m do
writeln (m,' ');
readln ();
end;
writeln ('ошибка');
end.