fkn+antitotal

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

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

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

Вывод консоли:

Vvedite dva chisla:
5 3
12

Задача 14 урок 9

Изучите код:

var s, t:integer;
    f, b:boolean;
begin
  f := true;
  b := false;
 
  if (f=true) then
    t:=1
  else
    t:=2;
 
  if (b=false) then
    s:=3
  else
    s:=4;
end. 

-- блоки условий можно переписать более кратко, без использования сравнения = true или = false, с сохранением той же логики работы программы.

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

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

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

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

var m,s:integer;
begin
  writeln('Vvedite chislo M');
  readln(m);
  s:=1;
  if (s = 1) then
    writeln('soobchenie 1');
  if (s = m) then
    writeln('soobchenie 2');
end;

-- при этом известно, что если s равно 1, то на экран должно вывестись только первое сообщение (а второе выводиться не должно), а если s не равно 1, но равно m, то второе (а первое выводиться не должно).
Но сейчас программа работает не так, исправьте это.

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

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

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

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

var k, n, d: integer;
begin
  readln(k,n,d);
    if ((k+n)>20) and ((n*d)<55) then
      writeln('ничья')
    else
      writeln('победил Коля');
  readln();
end.

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

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

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

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

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

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

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

var a, b: integer;
begin
  readln(a,b);
  if (a>b) then
    writeln(a);
  else
    writeln(b);
  readln();
end.

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

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

var A, B, C : integer;
begin
  readln(A, B, C);
  if (A=17) and (B=17) and (C>7) then
    writeln('ДА')
  else
    writeln('НЕТ');
  readln();
end.