fkn+antitotal

Задача 7 урок 10.1

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

var i:integer;
begin

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

вывод консоли

7 14 21 28 35 42 49 56 63 70 77 84 91 98

Задача 6 урок 10.1

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

5 задача урок 10.1

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

1 вариант решения

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

Выведите на экран, все нечетные числа, делящиеся на 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,' ');
readln();
end.

вывод консоли

39 45 51 57 63 69 75 81 87 93 99 105 111 117

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

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

Задача 2 урок 10.1

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

Задача 1 урок 10.1

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

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

вывод консоли

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

Задача 8 урок 15

Заполнить массив из 9 элементов случайными числами, далее получить случайное число N из диапазона от 1 до 9 и затем "удалить" элемент с позиции N из массива, "сдвинув" значения влево и заполнив все что справа нулями.
Например:

|1|3|4|5|4|7|-8|-9|

Путь n=2, тогда после работы программы мы должны получить:

|1|4|5|4|7|-8|-9|0|

Примечание: операции сдвига элементов массива оформите в виде подпрограммы.

Задача 7 урок 15

Заполните массив целых чисел (длиной 8 элементов) случайными значениями от -5 до 5.
Сохраните все неотрицательные числа первого массива во второй массив
и выведете этот второй массив на экран (если количество сохраненных чисел во втором массиве меньше, чем его длина, то выведете только их, не обходя неинициализированные яйчейки).

Урок 21. Задачи 1-7

Задача 1 Дано целое положительное число N. Выведите на экран все число от N до 1 (по убыванию).