fkn+antitotal

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

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

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

Пользователь вводит четыре числа, найдите из них максимальное.

Задача 6 Часть 3 Урок 9

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and.
С вложенными блоками (без and, все опараторы if должны быть в полной форме).
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.

Задача 6 Часть 1 Урок 9

Пользователь вводит три числа, найдите из них максимальное.
Решите тремя способами:

С использованием логической операции and.
С вложенными блоками (без and, все опараторы if должны быть в полной форме).
Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.

var
   a,b,c : integer;

begin
  a:=9;
  b:=22;
  c:=8;
  if  ((a>b) and (a<c)) or ((a<b) and (a>c)) then
    writeln ('da')
  else
    writeln ('net');
  readln();
end.

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: « Число A и число B больше 17, а C > 7». -- выведите "да", если истинно и "нет" если ложно.

var
   a,b,c : integer;

begin
  a:=18;
  b:=22;
  c:=8;
  if  ((a>17) and (b>17) and (c>7)) then
    writeln ('da')
  else
    writeln ('net');
  readln();
end.

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

Сравните два числа, если первое больше второго, то выведите на экран "12", а если нет, то выведите на экран "888".

var
   a,b : integer;

begin
   writeln ('vvedite chislo A');
   readln(a);
   writeln ('vvedite chislo B');
   readln(b);
   if a>b then
      writeln ('12')
   else
      writeln ('888');
   readln();
end. 

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

Сравните два числа, если первое больше второго, то выведите на экран "12". (здесь нужно использовать неполную форму условного оператора)

var
   a,b : integer;

begin
   writeln ('vvedite chislo A');
   readln(a);
   writeln ('vvedite chislo B');
   readln(b);
   if a>b then
      writeln ('12');
   readln();
end.

Задача 2 Урок 13.1:

Выведите на экран таблицу умножения используя только циклы вида while.

Задача 1 Урок 13.1:

Выведите на экран таблицу умножения используя только циклы вида repeat/until.