fkn+antitotal

Урок 10 задача 6

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

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

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

Урок 10 задача 4

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

10 задача 3

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

var i: integer;

  begin

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

  readln;

  end.             

урок 10 задача 2

Пользователь вводит два целых числа, выведите на экран все числа между ними, причем:
Если первое больше второго то в порядке возрастания, пример консоли:
?
1
2
3
1
5
ответ: 1 2 3 4 5
Иначе в порядке убывания, пример консоли:
?
1
2
3
5
3
ответ: 5 4 3

урок 10 задача 1

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

var i: integer;

begin

  for i := 35 to 64 do
    writeln(i,' ');

  readln;

  end.         

Урок 13.1 Задача 6

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

Решение:

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

Пользователь вводит первое целое число-ограничитель m. А затем начинает вводить целые числа по одному, пока не введёт число большее числа-ограничителя.
Если очередное целое число больше 1, то в ответ на каждое такое число программа должна выводить все целые числа от единицы до этого числа.
Примечание: это задача на вложенные циклы, в качестве внешнего надо использовать while, а в качестве внутреннего можно использовать или for или while.

Решение:

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

Пользователь вводит числа до тех пор пока не введёт число меньшее 1. В ответ на каждое введённое им число выводите на экран все нечетные числа от 1 до это числа, при этом делящиеся на 5. Если же пользователь ввел число меньшее 1, то завершите программу.

Решение :

Урок 15 задача 14

Напишите функцию, которая принимает на вход целое число N и возвращается строку, содержащую арифметическое выражение вида:

a1 # a2 # ..... # aN

Где:

a1, a2,....., aN -- случайные числа из диапазона от 1 до 100
# - один из случайных знаков (*, +, -)