fkn+antitotal

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

Пользователь вводит четыре числа, найдите из них максимальное -- решите через вложенные блоки if в полной форме (без использования логических операций).
Примечание: решение с помощью AND более удобно на практике, но для тренировки понимания тут мы решаем через вложенные блоки.

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

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

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

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

var a,b : integer;
begin
  writeln('Vvedite a,b');
  readln(a,b);
  if (a > b) then
    writeln('Max number = a')
  else
    writeln('Max number = b');
  readln();
end.

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

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

var A,B,C : integer;
begin
  writeln('Vvedite A,B,C');
  readln(A,B,C);
  if (A>17) and (B>17) and (C>7) then
    writeln('Yes')
  else
    writeln('No');
  readln();
end.

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

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

var A,B,C : integer;
begin
  writeln('Vvedite A,B,C');
  readln(A,B,C);
  if (A>B) and (A<C) then
    writeln('Yes')
  else
    writeln('No');
  readln();
end.

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

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

var a,b : integer;
begin
  writeln('Vvedite chisla dlya sravneniya');
  readln(a,b);
  if (a>b) then
    writeln('12')
  else
    writeln(888);
  readln();
end.

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

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

var a,b : integer;
begin
  writeln('Vvedite chisla dlya sravneniya');
  readln(a,b);
  if (a>b) then
    writeln('12');
  readln();
end.

13. Пользователь вводит целое 5-тизначное число,
выведите все его цифры в обратном порядке.

var
  a,f:integer;
  begin
    writeln('Vvedite chiso iz 5 znakov: ');
    readln(f);
    writeln();
    writeln('f=',f);
    writeln('Cifry v obratnom poryadke:');
    while (f>0) do
      begin
        a:=f mod 10;
        //writeln('f=',f);
        write (a);
        f:=f div 10;
      end;

    readln();

    end. 

Консоль

15.У вас есть число z=5. Пользователь вводит числа в цикле,
если хотя бы одно введенное число число было равно 77,
то увеличивайте число z на 1 в ответ на каждое введенное число,
до тех пор пока пользователь не введет число 55,
если такое произойдет то в ответ на это и любое последующее число,
уменьшайте z на 1.
Цикл и программа должны завершиться,
когда число z станет отрицательным.
(в начале цикла, если первое введенное число не равно ни 55, ни 77,
считаем, что мы должны увеличивать z на 1 пока не встретим 55 или 77,

16. У вас есть число z=5. Пользователь вводит числа в цикле,
если за последние 4 попытки ввода было хотя бы одно число больше или равно 15,
то увеличивайте число z на 1 в ответ на каждое введенное число,
а если такого числа не было, то уменьшайте на 1 в ответ на каждый ввод.
Цикл и программа должны завершиться, когда число z станет отрицательным.