Pascal 9 урок

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

var a, b: integer;
begin
   writeln('vvedite dva celih chisla: ');
   readln(a, b);
   if (a>b) then
   begin
      writeln(12);
   end;
   readln();
end. 

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

var a, b: integer;
begin
   writeln('vvedite dva celih chisla: ');
   readln(a, b);
   if (a>b) then
      writeln(12)
   else
      writeln(888);
   readln();
end.

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

var A, B, C: integer;
begin
   writeln('vvedite tri celih chisla: ');
   readln(a, b, c);
   if ((A<B)and (A>C)) then
      writeln('Da')
   else
       writeln('net');
   readln();
end. 

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

var A, B, C: integer;
begin
   writeln('vvedite tri celih chisla: ');
   readln(a, b, c);
   if ((A>17) and (B>17)and (7<C)) then
         writeln('Da')
   else
       writeln('net');
   readln();
end.

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

var A, B: integer;
begin
   writeln('vvedite dva celih chisla: ');
   readln(a, b);
   if (A>B) then
       writeln(A)
   else
       writeln(B);
   readln();
end.

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

:

С использованием логической операции and.

var A, B, C: integer;
begin
   writeln('vvedite tri celih chisla: ');
   readln(A, B, C);
   if (A > B) and ( A > B) then
       writeln('chislo A maksimalnoe = ', A);
   if (B > A) and (B > C) then
       writeln('chislo B maksimalnoe = ', B);
   if (C > A) and (C > B) then
       writeln('chislo C maksimalnoe = ', C);
   readln();
end

С вложенными блоками (без and).

var A, B, C: integer;
begin
   writeln('vvedite tri celih chisla: ');
   readln(A, B, C);
   if (A > B) then
     begin
       if (A > C) then
         writeln('chislo A maksimalnoe = ', A)
     end
   else
     if (B > C) then
       writeln('chislo B maksimalnoe = ', B)
     else
       writeln('chislo C maksimalnoe = ', C);
   readln();
end.  

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

var A, B, C, D: integer;
begin
   writeln('vvedite tri celih chisla: ');
   readln(A, B, C);
   if (A > B) then
     D:= A
   else
     D:= B;
   if (C > D) then
     D:= C;
   writeln('maksimalnoe chislo ', d);
   readln();
end.

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

var A, B, C, D: integer;
begin
  writeln('Vvedite chetyre celyh chisla:');
  readln(A, B, C, D);
  if (A > B) then
    if (A > C) then
      if (A > D) then
        writeln('Maksimalnoe chislo: A')
      else
         writeln('Maksimalnoe chislo: D')
      else if (C > D) then
         writeln('Maksimalnoe chislo: C')
      else
         writeln('Maksimalnoe chislo: D')
  else if (B > C) then
    if (B > D) then
      writeln('Maksimalnoe chislo: B')
     else
       writeln('Maksimalnoe chislo: D')
  else if (C > D) then
    writeln('Maksimalnoe chislo: C')
  else
    writeln('Maksimalnoe chislo: D');
readln();
end. 

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований.
Если:
сумма баллов Коли и Миши больше 20
или произведение баллов Пети и Миши меньше 55

--то тогда вывести в консоль сообщение о том, что ничья, в противном случае вывести сообщение, что победил Коля.

var A, B, C: integer;
begin
  writeln('Vvedite chetyre celyh chisla:');
  readln(A);
  writeln('vvedite balli Mishi ');
  readln(B);
  writeln('vvedite balli Peti ');
  readln(C);
  if((A + B)>20)or((C * B ) < 55)then
  writeln('pobedila druzhba')
  else
  writeln('pobedil Kolia');
readln();
end.