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

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

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

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

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

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

var i, a:integer;
begin
  writeln('Input integer');
  readln(i);
  if(i >= 100) then
    begin
    for a := i downto 1 do
        writeln(a);
    end;

  if(i < 100) then
    for a := i downto 1 do
      writeln(a) 
  else
    writeln('Error');
end. 

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

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

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

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

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

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

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

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