Условные операторы1 Из трех данных чисел выбрать наименьшее и наибольшее. 2 Даны числа...

Question

Условные
операторы

1 Из трех
данных чисел выбрать наименьшее и наибольшее.

2 Даны числа x, y. Проверить истинность
высказывания: «точка с координатами (x, y) лежит во второй
координатной четверти».

3 Дано целое число. Если оно является положительным,
то прибавить к нему 1; в противном случае
не изменять его. Вывести полученное число.

Answer 1

VAR
   a,b,c,mx,mn: LongInt;
BEGIN
   Read(a,b,c);
   if (a >= b)and(a >= c) then mx := a;
   if (b >= a)and(b >= c) then mx := b; 
   if (c >= a)and(c >= b) then mx := c; 
   
   if (a <= b)and(a <= c) then mn := a;</em>
   if (b <= a)and(b <= c) then mn := b; </em>
   if (c <= a)and(c <= b) then mn := c;     </em>

   Writeln('Минимальное число  = ', mn);
   Writeln('Максимальное число = ', mx); 
END.
----------------------------------------------------------------------
VAR
   x,y: Real;
BEGIN
   Read(x, y);
   
   if (x <= 0)and(y >= 0) then Write('True')
   else Write('False');
END.
----------------------------------------------------------------------
VAR
   n: LongInt;
BEGIN
   Read(n);
   if (n > 0) then Inc(n);
   Write(n);
END.