fkn+antitotal

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

Даны три целых числа: A, B, C. Проверить истинность высказывания: «Число A находится между числами B и C» -- выведите "да", если истинно и "нет" если ложно.
ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

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

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

var a, b: real;
begin
 writeln('Введите 2 числа:');
 readln(a, b);
 if (a > b) then
  writeln('12')
 else
  writeln('888');
 readln();
end.

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

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

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

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

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

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

program z4;
var a, b, c : integer;
begin
    writeln ('vvedite tri chisla:');
    readln (a, b, c);
    if (a>17)and(b>17)and(c>7) then
        writeln('da')
    else
        writeln('net');
    readln();
end.

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

Получите первую и последнюю цифры числа 15 с помощью операций div и mod (решается без цикла)

var
  a, b: integer;
begin
  a:= 15 div 10;
  b:= 15 mod 10;
  writeln(a);
  writeln(b);
  readln();
end.

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

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

С использованием логической операции and.
С вложенными блоками (без and).
Без вложенных блоков (без and) -- запомнив максимум из двух в специальной переменной.
Указание: Сначала посрайтесь написать все три решения самостоятельно (по 20 минут размышления на каждую задачу хотя бы), если не получается (или после решения) также можно посмотреть это видео-пояснение(link is external).

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

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

var a, b: real;
begin
 writeln('Введите 2 числа:');
 readln(a, b);
 if (a > b) then writeln('12');
 readln();
end.

Задача 11 Урок 11

Вывести на экран все числа от 4 до 100 с шагом 4

var
  i: integer;
begin
  i:= 4;
  while (i <= 100) do
        begin
          write(i, ', ');
          i:= i + 4;
        end;
  readln();
end. 

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

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

program z7;
var a, b, c , d, max2, max3, max4: integer;
begin
    writeln ('vvedite chetire chisla:');
    readln (a, b, c, d);
    if (a>b) then
        max2:=a
    else
        max2:=b;
    if (max2>c) then
        max3:=max2
    else
        max3:=c;
    if (max3>d) then
        max4:=max3
    else 
        max4:=d;
    writeln(max4);
    readln();
end.