fkn+antitotal

Урок 12.1 Задача 1

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

program U121Z1;
var i: integer;
begin
  i := 55;
  repeat
    write(i, ' ');
    i := i + 1;
  until (i>9236);
  readln();
end.        

Урок 11 Задача 7

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

Урок 11 задача 6

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

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

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

Урок 11 Задача 3

Решите с помощью цикла while:
Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

program U11Z3;
var a:integer;
begin
  a:=35;
  while (a<117) do
    begin
    a:=a+1;
    if((a mod 2)<>0)and((a mod 3)=0)then
      write(a, ' ');
    end;
  readln();
end.                  

Урок 11 Задача 2

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

Урок 11 Задача 1

Пользователь вводит целые числа. Пока он не введёт число большее 15, в ответ на каждое введённое число выводите сумму этого числа и числа 7, если же введённое число больше 15, то цикл необходимо завершить.

program U11Z1;
var a:integer;
begin
  a:=1;
  while(a<=15)do
  begin
    writeln('vvedite chislo:');
    readln(a);
    writeln(a+7);
  end;
  writeln('vse');
  readln();
end.                

Урок 10 задача 5

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

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

Выведите на экран, все нечетные числа, делящиеся на 3 нацело, лежащие в диапазоне от 35 до 117.

program U10Z4;
var a: integer;
begin
  for a:=35 to 117 do
    if((a mod 2)<>0)and((a mod 3)=0)then
      write(a, ' ');
  readln();
end.              

Урок 10 Задача 3

Пользователь вводит целое число, если оно больше 100, то выведите на экран все числа от этого числа до 1, иначе же все числа от 1 до этого числа.

program U10Z3;
var i, a: integer;
begin
  writeln('vvedite celoe chislo');
  readln(a);
  if (a > 100) then
    for i:=a downto 1 do
      write(i, ' ')
  else
    for i:=1 to a do
      write(i, ' ');
  readln();
end.