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;
   if (b <= a)and(b <= c) then mn := b; 
   if (c <= a)and(c <= b) then mn := c;     

   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.