fkn+antitotal

Задача 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 баллов в ходе соревнований. Если:

1. сумма баллов Коли и Миши больше 20
2. или произведение баллов Пети и Миши меньше 55

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

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

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

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

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

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

1. С использованием логической операции and.
2. С вложенными блоками (без and, все операторы if должны быть в полной форме).
3. Без вложенных блоков (без and) -- запомнив максимум из первых двух чисел в специальной переменной.

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

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

var A,B:integer;
begin
  writeln('Input first number');
  readln(A);
  writeln('Input second number');
  readln(B);
  if (A > B) then
     writeln('Max number is ', A)
  else
     if (B > A) then
         writeln('Max number is ', B)
     else writeln('Numbers are equal');
  readln();
end.

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

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

var A,B,C:integer;
begin
  A:=23;
  B:=22;
  C:=15;
  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
  A:=13;
  B:=12;
  C:=15;
  if ((A > B) AND (A < C)) then
     writeln('Yes')
  else
     writeln('No');
  readln();
end.

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

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

var first, second:real;
begin
  randomize;
  first:=random();
  writeln(first);
  second:=random();
  writeln(second);
  if (first > second) then
     writeln(12)
  else
     writeln(888);
  readln();
end.