fkn+antitotal

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

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

Решение:

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

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

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

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

Решение:

program Project1;
var e:integer;
begin

  for e:=35 to 64 do
   if  ((e mod 2) = 0) then
     writeln(e, '');

  readln();
end.

Консоль:

36
38
40
42
44
46
48
50
52
54
56
58
60
62
64

Задача 6. Урок 11.

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

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

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

Задача 4. Урок 11.

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

1.

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

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

var i: integer;
begin
  i:= 35;
  while i<=117 do
  begin
    if ((i mod 2) = 1) and ((i mod 3) = 0) then
    write(i);
    i:=i+1;
  end;

  readln();

end. 

Консоль:

3945515763697581879399105111117

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

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

урок 11

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

.

var i:integer;
begin
  i := 34; 
  while i <= 117 do
  begin
    i:=i + 1;  
    if (i mod 3) = 0 then   
      write(i, ' '); 
  end;
  readln();
end.

урок 10.1

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

.

var i:integer;
begin
  i := 34; 
  while i <= 117 do 
  begin
    i:=i + 1;  
    if (i mod 3) = 0 then   
      write(i, ' '); 
  end;
  readln();
end.