fkn+antitotal

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

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

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

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

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

Коля набрал k баллов, Миша n баллов, а Петя d баллов в ходе соревнований. Если:

сумма баллов Коли и Миши больше 20

или произведение баллов Пети и Миши меньше 55

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

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

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

Примечание: решение с помощью AND более удобно на практике, но для тренировки понимания тут мы решаем через вложенные блоки.

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

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

Решите тремя способами:

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

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

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

var
  a, b, c: integer;

begin
  write('Введите число a: ');
  read(a);
  write('Введите число b: ');
  read(b);
  write('Введите число c: ');
  read(c);

  write('Максимальное число: ');

   if (a > b) and (a > c) then
   writeln(a);
   if (b > a) and (b > c) then
   writeln(b);
   if (c > b) and (c > b) then
   writeln(c);

  readln();
end.

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

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

var
  a, b, c: integer;

begin
  write('Введите число A, B, C: ');
  read(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» -- выведите "да", если истинно и "нет" если ложно.

ПРИМЕЧАНИЕ: эта следующая задача базируются на том, что мы уже решали (см. задачи в конце урока).

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

Сравните два числа, если первое больше второго, то выведите на экран "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.    

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

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

var a,b: integer;
begin
  writeln('vvedite dva celih chisla: ');
  readln(a, b);

  if (a > b) then // сравниваем
  begin
    writeln(12);
  end;

  readln();
end.