Цикл for pascal

Задание 5 Урок 10

Задание 5 Урок 10

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

Задание 3 Урок 10

Задание 3 Урок 10

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

var i,a : integer;

begin
  write('Введите целое число и нажмите ENTER: ');
  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. 

Задание 1 Урок 10

Задание 1 Урок 10

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

var i : integer;

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

  readln();
end.         
Subscribe to RSS - Цикл for pascal