Кабинет Информатики

Разветвляющиеся алгоритмы

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

Задача 1. Определить является ли данное целое число R чётным. Дать словесный ответ.

USES Crt;
  VAR  
R: INTEGER;
  BEGIN  
  ClrScr;  
  WriteLn('Введите число'); 
  ReadLn(R);   IF R MOD 2 = 0 Then WriteLn('Число чётное')
                             Else WriteLn('Число не чётное');
END.

Задача 2. Даны три целых числа. Выбрать из них те, которые принадлежат интервалу [1,3]
USES Crt;
  VAR
  X, Y, Z: INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите три целых числа'); 
  ReadLn(X,Y,Z);
  IF (X>=1) AND (X<=3) Then WriteLn('Первое число принадлежит заданному интервалу')
                                         Else WriteLn('Первое число не принадлежит заданному интервалу');
  IF (Y>=1) AND (Y<=3) Then WriteLn('Второе число принадлежит заданному интервалу')
                                         Else WriteLn('Второе число не принадлежит заданному интервалу');
  IF (Z>=1) AND (Z<=3) Then WriteLn('Третье число принадлежит заданному интервалу')
                                         Else WriteLn('Третье число не принадлежит заданному интервалу');
END.

Задача 3. Даны положительные целые числа A, B, C. Выяснить существует ли треугольник с длинами сторон A, B, C.  

USES Crt;
  VAR  
  A, B, C: INTEGER;
BEGIN
  ClrScr;
  WriteLn('Введите три числа');
   ReadLn(A,B,C);
  IF (A+B>C) AND (A+C>B) AND (B+C>A) Then WriteLn('Треугольник построить можно')
                                                                           Else WriteLn('Треугольник построить нельзя');
END.

.....................................................................................................................................
Практические задания
.....................................................................................................................................

1. Заданы два числа X, Y. Меньшее из двух значений заменить на 0. Если же они равны - заменить нулями оба.
2. Поменять местами значения целых переменных A, B, C таким образом, чтобы оказалось A >= B >= C.
3. Заданы три числа X, Y, Z. Найти min(XYZ, X+Y+Z).