fkn+antitotal

Пользователь вводит последовательно три произвольных целых числа. Заведите три переменных и сохраните эти числа в эти переменные. Пользовательский ввод обрабатывайте в цикле.
Примечание: в одном витке цикла должен быть только 1 readln()

program Project119;
var a,b,c,i: integer;
begin
  for i:=1 to 3 do
    begin
      writeln('vvedite chislo');
  if (i=1) then
    readln(a)
  else if (i=2) then
    readln(b)
  else
    readln(c);
    end;
  writeln(a,' ',b,' ',c,' ');
  readln();
end. 

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

program project118;
var a,b: integer;
begin
  a:=1;
  while a <= 3 do
    begin
    writeln('Vvedite celoe chislo');
    readln(b);
    if (b<0) and ((b mod 2) = -1) then
      begin
        a:=a+1;
        writeln('Minimalnoe otricatelnoe chislo a ',b);
      end;
    end;
  readln();
end.

Пользователь вводит целые числа, в ответ выводите символ #. Если введенное пользователем число равно 22, то завершите цикл не выводя ничего в ответ. Решите эту задачу 2-мя способами:
С использованием if()
С использованием if() и break;

Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и пред-предыдущего введённого им числа, если это число чётное, иначе просто запрашивать новое число. Если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

Модификация одной из пред. задач: Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и двух предыдущих введённых им чисел (предыдущего и пред-предыдущего), если же введённое число больше 15, то цикл необходимо завершить.
В первом витке цикла все "предыдущие" числа можно считать единицами.

Решите с помощью цикла while:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

http://fkn.ktu10.com/?q=node/8811
Перепишите её, используя цикл while.

var i: integer;
begin
i:=5;
while i<=34 do
begin
write(i, ' ');
 i:=i+1;
 end;
  readln();
end. 

var i: integer;
begin
i:=5;
repeat
write(i, ' ');
 i:=i+1;
 until i>34;
  readln();
end. 

http://fkn.ktu10.com/?q=node/8674
Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа от 35 до 117 и нечетные числа, делящиеся на 7 и 3 нацело и при этом лежащие в диапазоне от 45 до 99.
Указание: сначала можно решить задачу двумя циклами, но потом перепишите с использованием одного цикла, в теле которого составьте логическое выражение, описывающее подходящие числа (используйте логические операции).

http://fkn.ktu10.com/?q=node/8674
Решите с помощью цикла repeat/until:
Выведите на экран, все четные числа, делящиеся на 3 и на 6 нацело , лежащие в диапазоне от 35 до 117.

var i: integer;
begin
i:=35;
repeat
if (i mod 2=0) and (i mod 3=0) and (i mod 6=0)
then
write(i, ' ');
i:=i+1;
until (i=117);
readln();
end.

http://fkn.ktu10.com/?q=node/8674
Пользователь вводит в консоль символы (после каждого нажимая Enter), в ответ выводите символ '&', до тех пор пока пользователь не введёт '#', после чего завершите программу.

var a,b: char;
begin
repeat
writeln ('введи символ и нажми Enter');
readln (a);
b:='#';
if a=b then break
else
writeln ('&');
until (a=b);
end.