fkn+antitotal

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

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

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

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

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

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

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

Урок 10 Задача 2

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

1
5
ответ: 1 2 3 4 5
Иначе в порядке убывания

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

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

5
3
ответ: 5 4 3
Проверить решение для пар значений:

10 20
-- должны увидеть все числа от 10 до 20, и для:

20 10
-- все числа от 20 до 10 в обратном порядке

Уро 13.1 Задача 15

Пользователь вводит целое положительное число N большее или равное 8, если оно не соответствует этим критериям (то есть не является положительным и большим или равным 8), выведете сообщение об ошибке, в противном случае выведите на экран все числа последовательности, не большие N.
Например, для N=20 получим результат:

Урок 9 Задача 15

У вас есть три числа (три переменные) найдите их медиану(link is external)

program u9z15;
var a,b,c:integer;

begin
  writeln('vvedite 3 chisla');
  readln(a,b,c);
  if ((a > b) and (a < c)) or ((a > c) and (a < b)) then
  writeln('mediana ', a )
  else
   if ((b > a) and (b < c)) or ((b > c) and (b < a)) then
     writeln('mediana ', b)
     else
     writeln('mediana ',c);
  readln();
end.         

Урок 9 Задача14

Изучите код:

var s, t:integer;
f, b:boolean;
begin
f := true;
b := false;

if (f=true) then
t:=1
else
t:=2;

if (b=false) then
s:=3
else
s:=4;
end.
-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

Подсказки:

Урок 9 Задача13

Есть программа:

var z,s:integer;
f:boolean;
begin
readln(z);
f := z > 5;
s:=1;
if (z=s) and (f=false) then
begin
writeln();// делаем перенос строки
z:=0;
s:=s+1;//но увеличиваем кол-во строк
end;

Урок 9 Задача12