fkn+antitotal

http://fkn.ktu10.com/?q=node/8612

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

http://fkn.ktu10.com/?q=node/8612

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

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

http://fkn.ktu10.com/?q=node/8612

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

var a, i: integer;
begin
  writeln('vvedi celoe chislo ');
  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.         

http://fkn.ktu10.com/?q=node/8612

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

http://fkn.ktu10.com/?q=node/8612

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

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

http://fkn.ktu10.com/?q=node/8539

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

var a, s, d: integer;
begin
  writeln('vvedi 3 chisla');
  readln(a, s, d);
  if(((a > s) and (a < d)) or ((a < s) and (a > d)) or (a = d) or (a = s)) then
    writeln('mediana = ', a)
  else
    if((s > a) and (s < d) or ((s < a) and (s > d)) or (d = s)) then
      writeln('mediana = ', s)
    else
      writeln('mediana = ', d);
  readln();
end.

http://fkn.ktu10.com/?q=node/8539

Изучите код:

var s:integer;
    f:boolean;
begin
  f := true;
  b := false;
  if (f=true) then
    s:=1;
  else
    s:=2;
  if (b=false) then
    s:=3;
  else
    s:=4;
end.

-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

http://fkn.ktu10.com/?q=node/8539

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

http://fkn.ktu10.com/?q=node/8539

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

http://fkn.ktu10.com/?q=node/8539

Есть программа, где пользователь вводит число 1 или число 5: