fkn+antitotal

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

var a: integer;
begin
  a := 1;
  while (a <= 15) do
  begin
    writeln('vvedite celoe chislo:');
    readln(a);
    writeln(a + 7);
  end;
  writeln('Vihod');
  readln();

end.  

Решение задачи №18 из главы 13.1

Решение задачи 19 из главы 13.1

19. Пользователь передает целое положительное число N, выведете на экран последовательность от 1 до N "ёлочкой"

Решение одним циклом.

Решение задачи 18 из главы 13.1

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

Решение одним циклом без использования делимости нацело.

Модицифируйте код:

var i:integer;
begin
  for i:=1 to 10 do
  begin
     writeln(777);
     break;
  end;
  readln();
end. 

-- таким образом, чтобы на 4-ом витке на экран было выведено число 777, а на 5-ом произошел выход из цикла (при этом строчку for i:=1 to 10 оставьте без изменений).

var i:integer;
begin
  for i:=1 to 10 do
  begin
     if i = 4 then
       begin
         writeln(777);
         break;
       end;
  end;
  readln();
end.

Перебирите в цикле все числа от 1 до 100, выведите на экран каждое 7-е число.

var i: integer;
 begin
 for i := 1 to 100 do
   if(( i mod 7) = 0) then
    writeln(i, ' ');
 readln();
end.  

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

var i: integer;
begin
 for i := 35 to 117 do
   begin
    if(( i >= 35) and (i <= 117))
      and (( i mod 3 ) = 0)then
         writeln( 'i = ', i)
     else
       if(( i >= 45) and (i <= 99))
         and (( i mod 2) = 1) then
           writeln( 'i = ', i);
    end;
 readln();
end.  

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

1

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

2

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

.

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

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

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