Урок 10.1 ( Решенные задачи)

Урок 10.1 (Решенные задачи)

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

program u10z10;

var i: integer;

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

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

begin
  writeln('vvedite celoe chislo');
  readln(a);
  if (a > 1) then
    for i:= a downto 1 do
      begin
        if ((i mod 5) = 0) then
         writeln(i, ' ');
      end
  else
    writeln('Osibka');
end.

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

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

var i,a: integer;

begin
  writeln('vvedite seloe cislo');
  readln(a);
  if a > 100 then
     for i:= a downto 1 do
       write(i, ' ')
  else
     for i:= 1 to a do
       write(i, ' ');
end.

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

var i: integer;

begin
  for i:= 35 to 117 do
     if ((i mod 2) = 1) and ((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
      writeln(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
    begin
      if ((i mod 3) = 0) then
      writeln(i, ' ');
      if ((i mod 2) = 1) and (i >=45) and (i <= 99) then
         writeln(i, ' ');
    end;
end.